--- gforth/gforthmi.in	1998/12/23 23:59:21	1.3
+++ gforth/gforthmi.in	2000/09/23 15:06:00	1.6
@@ -1,6 +1,6 @@
 #! /bin/sh
 # @configure_input@
-#Copyright (C) 1997,1998 Free Software Foundation, Inc.
+#Copyright (C) 1997,1998,2000 Free Software Foundation, Inc.
 
 #This file is part of Gforth.
 
@@ -23,7 +23,7 @@ exec_prefix=@exec_prefix@
 test "x$GFORTHD" != x || GFORTHD=$prefix/lib/gforth/@VERSION@/gforth-ditc
 test "x$GFORTH" != x || GFORTH="@bindir@/gforth-@VERSION@ --die-on-signal"
 if test $# = 0 || test $1 = --help || test $1 = -h; then
-  echo "usage: `basename $0` target-name [gforth-options]"
+  echo "usage: `basename $0` [--application] target-name [gforth-options]"
   echo "creates a relocatable image 'target-name'"
   echo "environment:"
   echo " \$GFORTHD (default: $GFORTHD): Engine used for creating the fixed images"
@@ -37,6 +37,11 @@ elif test $1 = --version || test $1 = -v
   echo 'This program is part of Gforth'
   $GFORTH -e "license bye"
   exit 0
+elif test $1 = --application; then
+    application=yes
+    shift
+else
+    true #old shells require this
 fi
 outfile=$1; shift
 tmpfile=./temp-image.fi
@@ -46,3 +51,9 @@ $GFORTH comp-i.fs -e "comp-image $tmpfil
 chmod +x $outfile
 #gforth-0.2.1 -m 100000  comp-i.fs -e "comp-image $tmpfile"1" $tmpfile"2" $outfile bye"
 rm $tmpfile"1" $tmpfile"2"
+if test x$application = xyes; then
+    $GFORTH -e "s\" '$outfile\"" make-app.fs
+else
+    true #old shells require this
+fi
+