--- gforth/history.fs	2006/02/19 15:13:38	1.45
+++ gforth/history.fs	2006/05/01 09:45:56	1.48
@@ -72,9 +72,13 @@ s" os-class" environment? [IF] s" unix"
 defer back-restore ( u -- )
 ' backspaces is back-restore
 
+[IFDEF] x-width
+: clear-line ( max span addr pos1 -- max addr )
+  back-restore over over swap x-width spaces swap back-restore ;
+[ELSE]
 : clear-line ( max span addr pos1 -- max addr )
   back-restore over spaces swap back-restore ;
-
+[THEN]
 \ : clear-tib ( max span addr pos -- max 0 addr 0 false )
 \   clear-line 0 tuck dup ;
 
@@ -312,6 +316,10 @@ xchar-history
 : history-cold ( -- )
     history-file get-history xchar-history ;
 
-' history-cold INIT8 chained
+:noname ( -- )
+    defers 'cold
+    history-cold
+; is 'cold
+
 history-cold