--- gforth/Attic/kernal.fs	1994/10/24 19:16:00	1.22
+++ gforth/Attic/kernal.fs	1994/11/15 15:55:39	1.24
@@ -1,4 +1,4 @@
-\ KERNAL.FS    ANS figFORTH kernal                     17dec92py
+\ KERNAL.FS    GNU FORTH kernal                        17dec92py
 \ $ID:
 \ Idea and implementation: Bernd Paysan (py)
 \ Copyright 1992 by the ANSI figForth Development Group
@@ -244,6 +244,9 @@ decimal
 Create spaces  bl 80 times \ times from target compiler! 11may93jaw
 DOES>   ( u -- )  swap
         0 max 0 ?DO  I' I - &80 min 2dup type  +LOOP  drop ;
+Create backspaces  08 80 times \ times from target compiler! 11may93jaw
+DOES>   ( u -- )  swap
+        0 max 0 ?DO  I' I - &80 min 2dup type  +LOOP  drop ;
 hex
 : space   1 spaces ;
 
@@ -1038,7 +1041,7 @@ Variable warnings  G -1 warnings T !
 
 : bell  #bell emit ;
 
-: backspaces  0 ?DO  #bs emit  LOOP ;
+\ : backspaces  0 ?DO  #bs emit  LOOP ;
 : >string  ( span addr pos1 -- span addr pos1 addr2 len )
   over 3 pick 2 pick chars /string ;
 : type-rest ( span addr pos1 -- span addr pos1 back )
@@ -1401,7 +1404,10 @@ Variable argc
 	THEN
     +LOOP ;
 
+Defer 'cold ' noop IS 'cold
+
 : cold ( -- )
+    'cold
     pathstring 2@ process-path pathdirs 2!
     argc @ 1 >
     IF