diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 809f50c3a..ec893a6a5 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -111,7 +111,7 @@
 	  ((char= x #\")
 	   (princ "\\\"" stream))
 	  (t (princ x stream)))))
-    (princ (if one-liner #\"  " \"" stream))
+    (princ (if one-liner "\""  " \"") stream)
     string))
 
 ;;; ======================================================================