--- gforth/history.fs	2008/02/12 16:44:58	1.70
+++ gforth/history.fs	2008/05/07 20:38:46	1.71
@@ -206,7 +206,9 @@ require utf-8.fs
 
 [IFUNDEF] #esc  27 Constant #esc  [THEN]
 
-: at-deltaxy ( dx dy -- )  base @ >r decimal
+: at-deltaxy ( dx dy -- )
+    over 0< over 0= and IF  drop abs backspaces  EXIT  THEN
+    base @ >r decimal
     ?dup IF
 	#esc emit '[ emit  dup abs 0 .r 0< IF  'A  ELSE  'B  THEN  emit
     THEN