diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp
index e9138e4ee..87d17c767 100644
--- a/src/cmp/cmpvar.lsp
+++ b/src/cmp/cmpvar.lsp
@@ -140,7 +140,7 @@
 (defun special-variable-p (name)
   (or (si::specialp name)
       (check-global name)
-      (let ((v (cmp-env-search-var name)))
+      (let ((v (cmp-env-search-var name *cmp-env-root*)))
         ;; Fixme! Revise the declamation code to ensure whether
         ;; we also have to consider 'GLOBAL here.
         (and v (eq (var-kind v) 'SPECIAL)))))