--- gforth/smartdots.fs	2012/03/09 12:59:54	1.2
+++ gforth/smartdots.fs	2012/03/09 18:56:42	1.3
@@ -27,7 +27,7 @@
 	IFERROR  2drop drop false nothrow ELSE  true  THEN  ENDTRY ;
 
 : .string. ( addr u -- )
-    '"' emit type '"' emit space ;
+    .\" s\" " type '"' emit space ;
 : .addr. ( addr -- )  hex. ;
 
 Variable smart.s-skip