diff --git a/test/script-support.lisp b/test/script-support.lisp
index 536c857b52fdb153218f0bd480de01c3b23752cd..8358e5aa9336d61cf6ad00b90b66c151eb57bd41 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -14,7 +14,7 @@
                 (or #+allegro
                     (ecase excl:*current-case-mode*
                       (:case-sensitive-lower :mlisp)
-                      (:case-sensitive-upper :alisp))
+                      (:case-insensitive-upper :alisp))
                     #+armedbear :abcl
                     #+clisp :clisp
                     #+clozure :ccl