diff --git a/compiler/eval.lisp b/compiler/eval.lisp
index efae44373418253b838637abc503a5ccb85ba242..d00a98491b7bd3dea7b4cb0c20aacb29f2850fe1 100644
--- a/compiler/eval.lisp
+++ b/compiler/eval.lisp
@@ -620,12 +620,12 @@
        (cond ((eq ,kind :full)
 	      (do-combination :full nil ,type))
 	     ((eq ,kind :local)
-	      (let* ((,lambda (c::ref-leaf (c::continuation-use fun)))
+	      (let* ((,lambda (c::ref-leaf (c::continuation-use ,fun)))
 		     ,@letp-bind)
 		,local-branch))
-	     ((eq (c::continuation-info fun) :unused)
+	     ((eq (c::continuation-info ,fun) :unused)
 	      (assert (typep ,kind 'c::function-info))
-	      (do-funny-function (c::continuation-function-name fun)))
+	      (do-funny-function (c::continuation-function-name ,fun)))
 	     (t
 	      (assert (typep ,kind 'c::function-info))
 	      (do-combination :full nil ,type))))))