diff --git a/micros.lisp b/micros.lisp
index 9695ab8..449d12b 100644
--- a/micros.lisp
+++ b/micros.lisp
@@ -2599,7 +2599,8 @@ Record compiler notes signalled as `compiler-condition's."
     (*print-escape* . t)
     (*print-lines* . nil)
     (*print-level* . nil)
-    (*print-length* . nil)))
+    (*print-length* . nil)
+    (*print-case* . :downcase)))
 
 (defun apply-macro-expander (expander string)
   (with-buffer-syntax ()