--- gforth/kernel/int.fs	1999/12/03 18:49:51	1.43
+++ gforth/kernel/int.fs	1999/12/12 12:49:52	1.44
@@ -755,6 +755,10 @@ Defer 'cold ( -- ) \ gforth  tick-cold
 Variable init8
 
 : cold ( -- ) \ gforth
+[ has? backtrace [IF] ]
+    rp@ backtrace-rp0 !
+[ [THEN] ]
+    handler off
 [ has? file [IF] ]
     pathstring 2@ fpath only-path 
     init-included-files