--- gforth/Attic/kernal.fs	1995/03/14 19:01:43	1.33
+++ gforth/Attic/kernal.fs	1995/04/14 18:56:55	1.34
@@ -1464,16 +1464,19 @@ Variable argc
 	r> >tib +!  2 EXIT  THEN
     ." Unknown option: " type cr 2drop 1 ;
 
-: process-args ( -- )  >tib @ >r
+: process-args ( -- )
+    >tib @ >r
+    true to script?
     argc @ 1
     ?DO
 	I arg over c@ [char] - <>
 	IF
-	    true to script? included  false to script? 1
+	    included 1
 	ELSE
 	    I 1+ arg  do-option
 	THEN
     +LOOP
+    false to script?
     r> >tib ! ;
 
 Defer 'cold ' noop IS 'cold