diff --git a/vm-cross.lisp b/vm-cross.lisp
index 05e358e..6cc1f8b 100644
--- a/vm-cross.lisp
+++ b/vm-cross.lisp
@@ -606,7 +606,8 @@
                     (incf ip))
                    ((#.m:encell)
                     (let ((index (next-code)))
-                      (setf (local index) (make-cell (local index)))))
+                      (setf (local index) (make-cell (local index))))
+                    (incf ip))
                    ((#.m:long)
                     (case (next-code)
                       (#.m:ref (spush (local (next-long))) (incf ip))