--- gforth/Attic/kernel.fs	1996/11/22 17:41:36	1.8
+++ gforth/Attic/kernel.fs	1996/12/28 17:19:25	1.9
@@ -1814,8 +1814,12 @@ Defer 'cold ' noop IS 'cold
 
 : boot ( path **argv argc -- )
   argc ! argv ! pathstring 2!  main-task up!
-  sp@ dup s0 ! $10 + dup >tib ! tibstack ! #tib off >in off
-  rp@ r0 !  fp@ f0 !  ['] cold catch DoError bye ;
+  sp@ s0 !
+  lp@ forthstart 7 cells + @ - dup >tib ! tibstack ! #tib off >in off
+  rp@ r0 !
+  fp@ f0 !
+  ['] cold catch DoError
+  bye ;
 
 : bye ( -- ) \ tools-ext
     script? 0= IF  cr  THEN  0 (bye) ;