--- gforth/Attic/backtrace.fs	1999/01/03 21:48:36	1.1
+++ gforth/Attic/backtrace.fs	1999/03/08 21:36:07	1.3
@@ -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 @
@@ -83,8 +82,14 @@ IS store-backtrace
     swap u+do
 	cr
 	i @ dup hex. ( return-addr? )
-	cell - dup in-dictionary? if
-	    @ look drop .name
+	cell - dup in-dictionary? over dup aligned = and
+	if
+	    @ look
+	    if
+		.name
+	    else
+		drop
+	    then
 	else
 	    drop
 	then