diff --git a/ansi-tests/char-aux.lsp b/ansi-tests/char-aux.lsp
index 174443442a6a9909840eae2b30473128bb78676b..e2a421bb72ca82069dcfeb3c322f357e50a8a475 100644
--- a/ansi-tests/char-aux.lsp
+++ b/ansi-tests/char-aux.lsp
@@ -142,7 +142,6 @@
 		   (unless result
 		     (format t "~A ~A ~A~%" r i c))
 		   result))))
-		    a
 
 (defun digit-char.1.body ()
   (loop for r from 2 to 36 nconc