diff --git a/ansi-tests/format-s.lsp b/ansi-tests/format-s.lsp
index e61db541a2bd59c0080b95b5c5e6545c9856e341..9f49cc4bb3a9ae46400ca4e49f6805e54bb1509e 100644
--- a/ansi-tests/format-s.lsp
+++ b/ansi-tests/format-s.lsp
@@ -58,7 +58,9 @@
 	   for c = (code-char i)
 	   for s1 = (and c (format nil "#\\~:c" c))
 	   for s2 = (and c (format nil "~S" c))
-	   unless (or (null c) (eql c #\Space) (string= s1 s2))
+	   unless (or (null c)
+		      (graphic-char-p c)
+		      (string= s1 s2))
 	   do (incf count) and collect (list c s1 s2)
 	   when (> count 100) collect "count limit exceeded" and do (loop-finish))))
   nil)