--- gforth/kernel/int.fs	2001/10/26 11:53:22	1.77
+++ gforth/kernel/int.fs	2002/01/05 20:16:18	1.78
@@ -860,8 +860,7 @@ AVariable init8 NIL init8 !
     rp@ backtrace-rp0 !
 [ [THEN] ]
 [ has? file [IF] ]
-    pathstring 2@ fpath only-path 
-    init-included-files
+    os-cold
 [ [THEN] ]
     'cold
     init8 chainperform
@@ -890,11 +889,7 @@ has? new-input 0= [IF]
 : boot ( path n **argv argc -- )
     main-task up!
 [ has? os [IF] ]
-    stdout TO outfile-id
-    stdin  TO infile-id
-\ !! [ [THEN] ]
-\ !! [ has? file [IF] ]
-    argc ! argv ! pathstring 2!
+    os-boot
 [ [THEN] ]
     sp@ sp0 !
 [ has? peephole [IF] ]