--- gforth/kernel/int.fs	2000/10/29 20:27:03	1.64
+++ gforth/kernel/int.fs	2001/01/23 10:05:36	1.65
@@ -487,6 +487,7 @@ Defer interpreter-notfound ( c-addr coun
 : interpret ( ?? -- ?? ) \ gforth
     \ interpret/compile the (rest of the) input buffer
 [ has? backtrace [IF] ]
+    backtrace-rp0 @ >r	
     rp@ backtrace-rp0 !
 [ [THEN] ]
     BEGIN
@@ -494,7 +495,11 @@ Defer interpreter-notfound ( c-addr coun
     WHILE
 	parser
     REPEAT
-    2drop ;
+    2drop
+[ has? backtrace [IF] ]
+    r> backtrace-rp0 !
+[ [THEN] ]
+;
 
 \ interpreter                                 	30apr92py