diff --git a/closure-common.asd b/closure-common.asd
index 8d87215..34f3891 100644
--- a/closure-common.asd
+++ b/closure-common.asd
@@ -26,7 +26,7 @@
        #+rune-is-character
        (error "conflicting unicode configuration.  Please recompile.")
        (pushnew :rune-is-integer *features*))
-      ((code-char 70000)
+      ((test 70000)
        (when (test #xD800)
 	 (format t " WARNING: Lisp implementation doesn't use UTF-16, ~
                      but accepts surrogate code points.~%"))