diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index b8437361e5efd96a9baef5b08cfa4cd57affa0ea..c82088f7efc776dc7ccd1a12be8e2dba287d573b 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -2156,7 +2156,7 @@
     nil
     '(lambda (a)
      (labels ((%f6 (f6-1 f6-2)
-		   (handler-case
+		   (cl:handler-case
 		    (labels ((%f2 nil (logior a)))
 		      (if (eql (%f2) (%f2))
 			  2829254 -10723))