--- gforth/kernel/tools.fs	1999/02/03 00:10:26	1.7
+++ gforth/kernel/tools.fs	1999/02/21 14:55:44	1.8
@@ -45,7 +45,7 @@ Variable /dump
 
 : .4 ( addr -- addr' )
     3 FOR  -1 /dump +!  /dump @ 0<
-        IF  ."    "  ELSE  dup c@ 0 <# # # #> type space  THEN
+        IF  ."    "  ELSE  dup c@ 0 <<# >r # # r> #>> type space  THEN
     char+ NEXT ;
 : .chars ( addr -- )
     /dump @ bounds