--- gforth/Attic/backtrace.fs	1999/02/21 14:55:43	1.2
+++ gforth/Attic/backtrace.fs	1999/10/30 15:48:15	1.4
@@ -65,8 +65,7 @@ IS 'cold
     else \ throw by signal handler with insufficient information
 	handler @ cell - \ beyond that we know nothing
     then
-    rp0 @ over - [ 10 cells ]L - 0 max ; \ the bottom 10 cells (and often
-					 \ more) are uninteresting
+    backtrace-rp0 @ [ 2 cells ]L - over - 0 max ;
 
 :noname ( -- )
     backtrace-empty @
@@ -80,6 +79,7 @@ IS store-backtrace
 
 : print-backtrace ( addr1 addr2 -- )
     \G print a backtrace for the return stack addr1..addr2
+    cr ." Backtrace:"
     swap u+do
 	cr
 	i @ dup hex. ( return-addr? )