diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp
index 7a6ea10b9b8d18728ea2c496cbee49ae22c70fca..3de7dbe3f78892ab74dd3971c0cf5b12a770e25c 100644
--- a/compiler/ir1opt.lisp
+++ b/compiler/ir1opt.lisp
@@ -1325,7 +1325,7 @@
 		(change-ref-leaf ref fun)
 		(assert (eq (basic-combination-kind node) :full))
 		(local-call-analyze *current-component*)
-		(assert (eq (functional-kind (ref-leaf ref)) :mv-let)))))))))
+		(assert (eq (basic-combination-kind node) :local)))))))))
 
   (undefined-value))