--- gforth/Attic/backtrace.fs	1999/01/03 21:48:36	1.1
+++ gforth/Attic/backtrace.fs	1999/02/21 14:55:43	1.2
@@ -83,8 +83,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