--- gforth/exboot.fs	2004/01/18 22:21:28	1.8
+++ gforth/exboot.fs	2004/12/31 13:23:57	1.10
@@ -1,7 +1,7 @@
 \ include except.fs and restart Gforth. Gforth is restarted to create
 \ an exception frame for the exception handler.
 
-\ Copyright (C) 2000,2001,2003 Free Software Foundation, Inc.
+\ Copyright (C) 2000,2001,2003,2004 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -30,4 +30,11 @@ require except.fs
 \ included-files 2@ image-included-files 2!
 
 \ now boot
-pathstring 2@ argv @ argc @ boot
+
+pathstring 2@ argv @ argc @
+[defined] next-arg 0= [if]
+    \ for compatibility with old versions
+    swap cell+ swap 1-
+[endif]
+boot
+    
\ No newline at end of file