diff --git a/ansi-tests/char-aux.lsp b/ansi-tests/char-aux.lsp
index dd7d20d45786f0c55b811021f43cb088b4619766..bade2ca35c51d56f09f4e17415d31de9ee7b4b90 100644
--- a/ansi-tests/char-aux.lsp
+++ b/ansi-tests/char-aux.lsp
@@ -64,13 +64,13 @@
   (loop for i from 0 below (min 65536 char-code-limit) for c = (code-char i)
         unless (not (and (typep c 'standard-char)
                          (not (standard-char-p c))))
-        collect c))
+        collect (char-name c)))
 
 (defun extended-char.3.body ()
   (loop for i from 0 below (min 65536 char-code-limit) for c = (code-char i)
         unless (not (and (typep c 'base-char)
                          (typep c 'extended-char)))
-        collect c))
+        collect (char-name c)))
 
 (defun character.1.body ()
   (loop for i from 0 below (min 65536 char-code-limit) for c = (code-char i)
@@ -80,7 +80,7 @@
                       (eqlt (character c) c)
                       (eqlt (character s) c)
                       (eqlt (character (make-symbol s)) c))))
-        collect c))
+        collect (char-name c)))
 
 (defun character.2.body ()
   (loop for x in *universe*
@@ -96,7 +96,7 @@
 (defun characterp.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit) for c = (code-char i)
         unless (or (null c) (characterp c))
-        collect c))
+        collect (char-name c)))
 
 (defun characterp.3.body ()
   (loop for x in *universe*
@@ -130,7 +130,7 @@
                      ;;  returns NIL.  Therefore, I've weakened the next line
                      ;; (not (alphanumericp x))
                      t))
-        collect x))
+        collect (char-name x)))
 
 (defun digit-char.1.body.old ()
   (loop for r from 2 to 36 always
@@ -164,7 +164,7 @@
         unless (or (not x)
                    (not (and (not (alphanumericp x))
                              (digit-char-p x))))
-        collect x))
+        collect (char-name x)))
 
 (defun digit-char-p.3.body ()
   (loop for r from 2 to 35
@@ -199,7 +199,7 @@
         unless (or (not (characterp x))
                    (find x +standard-chars+)
                    (not (standard-char-p x)))
-        collect x))
+        collect (char-name x)))
 
 (defun char-upcase.1.body ()
   (loop for x in *universe*
@@ -208,7 +208,7 @@
                      (and
                       (or (lower-case-p x) (eqlt u x))
                       (eqlt u (char-upcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-upcase.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
@@ -218,7 +218,7 @@
                      (and
                       (or (lower-case-p x) (eqlt u x))
                       (eqlt u (char-upcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-downcase.1.body ()
   (loop for x in *universe*
@@ -227,7 +227,7 @@
                      (and
                       (or (upper-case-p x) (eqlt u x))
                       (eqlt u (char-downcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-downcase.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
@@ -237,7 +237,7 @@
                      (and
                       (or (upper-case-p x) (eqlt u x))
                       (eqlt u (char-downcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun both-case-p.1.body ()
   (loop for x in *universe*
@@ -248,7 +248,7 @@
                                 (lower-case-p x)))
                      (not (or (upper-case-p x)
                               (lower-case-p x)))))
-        collect x))
+        collect (char-name x)))
 
 (defun both-case-p.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
@@ -260,14 +260,14 @@
                                 (lower-case-p x)))
                      (not (or (upper-case-p x)
                               (lower-case-p x)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-code.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
         for c = (code-char i)
         unless (or (not c)
                    (eqlt (char-code c) i))
-        collect c))
+        collect (char-name c)))
 
 (defun char-int.2.fn ()
   (declare (optimize (safety 3) (speed 1) (space 1)))