diff --git a/simulator.rkt b/simulator.rkt
index 2425d85..3d0db9c 100644
--- a/simulator.rkt
+++ b/simulator.rkt
@@ -193,7 +193,9 @@
                     (error 'get-copmiled-procedure-entry)]))]
 
           [(MakeCompiledProcedure? op)
-           m]
+           (target-updater m (make-closure (MakeCompiledProcedure-label op)
+                                           (list)))]
+
           [(ApplyPrimitiveProcedure? op)
            m]
           [(LookupLexicalAddress? op)