diff --git a/compiler/eval.lisp b/compiler/eval.lisp
index 3f575dde71260f1df117d9281a9925b56e37b885..96e5b463864691b7763b4025e28dd074802ec93b 100644
--- a/compiler/eval.lisp
+++ b/compiler/eval.lisp
@@ -225,7 +225,7 @@
   (let* ((eval-fun (get-eval-function x))
 	 (lambda (eval-function-lambda eval-fun)))
     (if lambda
-	(values lambda nil (or (eval-function-name eval-fun) lambda))
+	(values lambda nil (eval-function-name eval-fun))
 	(let ((fun (c::functional-entry-function
 		    (eval-function-definition eval-fun))))
 	  (values (c::functional-inline-expansion fun)