--- gforth/kernel/paths.fs	2010/12/30 21:46:14	1.35
+++ gforth/kernel/paths.fs	2010/12/31 14:37:13	1.36
@@ -65,12 +65,10 @@ Variable fpath ( -- path-addr ) \ gforth
 Variable ofile
 Variable tfile
 
-: make-path ( addr -- )  >r r@ off s" " r> $! ;
-
 : os-cold ( -- )
-    fpath make-path
-    ofile make-path
-    tfile make-path
+    fpath $init
+    ofile $init
+    tfile $init
     pathstring 2@ fpath only-path 
     init-included-files ;