diff --git a/scsh/sighandlers.scm b/scsh/sighandlers.scm
index 0ee0ea1..ba74828 100644
--- a/scsh/sighandlers.scm
+++ b/scsh/sighandlers.scm
@@ -188,7 +188,10 @@
 				   (structure-ref threads-internal event-type) 
 				   interrupt)
 				  (enum interrupt keyboard))))))
-  (run-as-long-as deliver-interrupts thunk 'deliver-interrupts))
+  ((structure-ref threads-internal spawn-on-root)
+   deliver-interrupts 
+   'deliver-interrupts)
+  (thunk))
 
 (define (deliver-interrupts)
   (let lp ((last ((structure-ref sigevents most-recent-sigevent))))