--- gforth/backtrac.fs	2007/12/31 19:02:24	1.17
+++ gforth/backtrac.fs	2012/06/23 20:58:30	1.18
@@ -96,7 +96,7 @@ IS store-backtrace
 
 : print-backtrace ( addr1 addr2 -- )
     \G print a backtrace for the return stack addr1..addr2
-    cr ." Backtrace:"
+    2dup u< IF  cr ." Backtrace:"  THEN
     swap u+do
 	cr
 	i @ dup hex. ( return-addr? )