diff --git a/compiler/pack.lisp b/compiler/pack.lisp
index 53aeec425175204f39a6dd2550ff8f8948b6c557..da0e849e47309e5eed6f25b57ba4dde550c72eda 100644
--- a/compiler/pack.lisp
+++ b/compiler/pack.lisp
@@ -826,7 +826,8 @@
     
     (let ((next-lab (block-label (ir2-block-block (ir2-block-next 2block)))))
       (add-to-emit-order new-2block 2block)
-      (unless (eq (vop-info-name (ir2-block-last-vop 2block)) 'branch)
+      (unless (eq (vop-info-name (vop-info (ir2-block-last-vop 2block)))
+		  'branch)
 	(vop branch node 2block next-lab)))
     (undefined-value)))