--- gforth/quotedstring.fs	2012/06/23 23:44:30	1.2
+++ gforth/quotedstring.fs	2012/06/24 22:02:03	1.3
@@ -30,6 +30,7 @@
 forth-recognizer get-recognizers
 1+ forth-recognizer set-recognizers
 
+0 [IF] \ dot-quoted strings, we don't need them
 : slit.  slit, postpone type ;
 
 ' type ' slit. ' slit, recognizer: r:."
@@ -41,4 +42,5 @@ forth-recognizer get-recognizers
 
 ' ."-recognizer
 forth-recognizer get-recognizers
-1+ forth-recognizer set-recognizers
\ No newline at end of file
+1+ forth-recognizer set-recognizers
+[THEN]
\ No newline at end of file