--- gforth/history.fs	2006/02/19 22:15:05	1.47
+++ gforth/history.fs	2006/05/01 09:45:56	1.48
@@ -316,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