--- gforth/kernel/args.fs	2000/10/29 20:27:03	1.10
+++ gforth/kernel/args.fs	2002/01/05 20:16:18	1.11
@@ -74,4 +74,9 @@ Variable argc ( -- addr ) \ gforth
     false to script?
 ;
 
+: os-boot ( path n **argv argc -- )
+    stdout TO outfile-id
+    stdin  TO infile-id
+    argc ! argv ! pathstring 2! ;
+
 ' (process-args) IS process-args