--- gforth/exboot.fs 2004/01/18 22:21:28 1.8 +++ gforth/exboot.fs 2004/01/19 07:52:32 1.9 @@ -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