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