--- gforth/exboot.fs	2003/03/09 15:16:48	1.6
+++ gforth/exboot.fs	2004/12/31 13:23:57	1.10
@@ -1,8 +1,7 @@
-\ ( n -- ) include except.fs and restart Gforth, ignoring the
-\ first n arguments. Gforth is restarted to create an exception frame
-\ for the exception handler.
+\ include except.fs and restart Gforth. Gforth is restarted to create
+\ an exception frame for the exception handler.
 
-\ Copyright (C) 2000,2001 Free Software Foundation, Inc.
+\ Copyright (C) 2000,2001,2003,2004 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -31,4 +30,11 @@ require except.fs
 \ included-files 2@ image-included-files 2!
 
 \ now boot
-pathstring 2@ rot argv @ over cells + argc @ rot - 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