diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index 778b95e2b248c774011ea64b0ae3f032f4f99c0a..8c1b2731d5229b6a86902af74b676ca30a7767fc 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -187,8 +187,8 @@
 	     (leaf (if refp (ref-leaf node))))
 	(setf (continuation-info cont)
 	      (cond ((and refp dest (typep dest 'basic-combination)
-			  (eq (combination-kind dest) :local)
-			  (eq (combination-fun dest) cont))
+			  (eq (basic-combination-kind dest) :local)
+			  (eq (basic-combination-fun dest) cont))
 		     :unused)
 		    ((and leaf (typep leaf 'global-var)
 			  (eq (global-var-kind leaf) :global-function)