diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 0640007174cb2775cab75896c064e772c0e7891a..52520a0ee2a032e50cd44fcf6ac63eee27e57c07 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -1601,8 +1601,8 @@
 ;;; the global environment and enter it in *free-variables*.  If the variable
 ;;; is unknown, then we emit a warning.
 ;;;
-(proclaim '(function find-free-variable (symbol) leaf))
 (defun find-free-variable (name)
+  (declare (values leaf))
   (unless (symbolp name)
     (compiler-error "Variable name is not a symbol: ~S." name))
   (or (gethash name *free-variables*)