diff --git a/compiler/alloc.lisp b/compiler/alloc.lisp
index 74941bda6891fad0c49ec78c5003f4a7e26f49b1..7c279f4ba0f012e5336db7e5c8543a49f31f3e6d 100644
--- a/compiler/alloc.lisp
+++ b/compiler/alloc.lisp
@@ -245,7 +245,16 @@
     (setf (global-conflicts-kind structure) kind)
     (setf (global-conflicts-tn structure) tn)
     (setf (global-conflicts-block structure) block)
-    (setf (global-conflicts-number structure) number))))
+    (setf (global-conflicts-number structure) number)))
+
+  ((instruction (prev info . #.assem::instruction-slot-order))
+   ((setf (assem::node-next structure) nil))
+   ((setf (assem::node-vop structure) assem::*current-vop*)
+    (setf (assem::node-prev structure) prev)
+    (setf (assem::instruction-info structure) info)
+    . #.(mapcar #'(lambda (slot)
+		    `(setf (,slot structure) ,slot)
+		    assem::instruction-slot-order)))))
 
 
 ;;; NUKE-IR2-COMPONENT  --  Interface