diff --git a/os2.rkt b/os2.rkt
index 6ca234f..6e6a833 100644
--- a/os2.rkt
+++ b/os2.rkt
@@ -126,7 +126,7 @@
   (vm (hash)
       (hash)
       0
-      (list->quasi-queue (list (spawn boot #f)))))
+      (list->quasi-queue (list (cons -1 (spawn boot #f))))))
 
 (define (run-vm state)
   (let loop ((remaining-actions (quasi-queue->list (vm-pending-actions state)))