--- gforth/Attic/kernel.fs 1997/02/24 22:28:58 1.16 +++ gforth/Attic/kernel.fs 1997/03/04 22:09:54 1.17 @@ -1308,7 +1308,7 @@ Defer 'cold ' noop IS 'cold pathstring 2@ process-path pathdirs 2! init-included-files [ [THEN] ] -\ 'cold + 'cold [ has-files [IF] ] argc @ 1 > IF