--- gforth/smartdots.fs	2012/03/27 23:02:01	1.6
+++ gforth/smartdots.fs	2012/03/27 23:06:42	1.7
@@ -28,7 +28,8 @@
 
 : .string. ( addr u -- )
     .\" s\" " type '"' emit space ;
-: .addr. ( addr -- )  hex. ;
+: .addr. ( addr -- )
+    dup >name dup IF  ." ' " .name drop  ELSE  drop hex.  THEN ;
 
 Variable smart.s-skip