diff --git a/src/tests/bugs/test-ansi.lsp b/src/tests/bugs/test-ansi.lsp
index 52bf9e492..8dd560863 100644
--- a/src/tests/bugs/test-ansi.lsp
+++ b/src/tests/bugs/test-ansi.lsp
@@ -7,11 +7,16 @@
 ;;;;;;;;;;;;;;;;;;;;;
 
 (symbol-macrolet ((lookup-table
-       '(:SYMBOL   ("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")
-         :UPCASE   (|ZEBRA| |ZEBRA| |ZEBRA| |ZEBRa|   |ZEBRA|   |ZEBRa|   |ZEBRA|   |ZEBRa|   |ZEBRA|)
-         :DOWNCASE (|zebra| |zebra| |zebra| |zebra|   |zebrA|   |zebra|   |zebrA|   |zebra|   |zebrA|)
-         :PRESERVE (|zebra| |Zebra| |ZEBRA| |zebra|   |zebrA|   |ZEBRa|   |ZEBRA|   |Zebra|   |ZebrA|)
-         :INVERT   (|ZEBRA| |Zebra| |zebra| |ZEBRa|   |ZEBRA|   |zebra|   |zebrA|   |Zebra|   |ZebrA|))))
+                   '(:SYMBOL   ("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A"
+                                "ZEBR\\a""ZEBR\\A" "Zebr\\a" "Zebr\\A")
+                     :UPCASE   (|ZEBRA| |ZEBRA| |ZEBRA| |ZEBRa|
+                                |ZEBRA| |ZEBRa| |ZEBRA| |ZEBRa| |ZEBRA|)
+                     :DOWNCASE (|zebra| |zebra| |zebra| |zebra|
+                                |zebrA| |zebra| |zebrA| |zebra| |zebrA|)
+                     :PRESERVE (|zebra| |Zebra| |ZEBRA| |zebra|
+                                |zebrA| |ZEBRa| |ZEBRA| |Zebra| |ZebrA|)
+                     :INVERT   (|ZEBRA| |Zebra| |zebra| |ZEBRa|
+                                |ZEBRA| |zebra| |zebrA| |Zebra| |ZebrA|))))
   (macrolet
       ((def-readtable-case-test (reader-case)
          `(deftest ,(concatenate 'string "TEST-ANSI.READTABLE.CASE-"