diff --git a/scheme/rts/interrupt.scm b/scheme/rts/interrupt.scm
index ac0fcc9..e3a9ac3 100644
--- a/scheme/rts/interrupt.scm
+++ b/scheme/rts/interrupt.scm
@@ -89,7 +89,8 @@
 	   (lambda ()
 	     ((session-data-ref space-shortage-handler)
 	      (session-data-ref required-post-gc-space)
-	      space)))))
+	      space))
+	   'space-shortage-handler)))
     (spawn-on-root
      (lambda ()
        (for-each (lambda (p)
diff --git a/scheme/rts/root-scheduler.scm b/scheme/rts/root-scheduler.scm
index ba40533..e86d697 100644
--- a/scheme/rts/root-scheduler.scm
+++ b/scheme/rts/root-scheduler.scm
@@ -142,7 +142,9 @@
     (cond ((null? thunks)
 	   #f)
 	  (else
-	   (for-each spawn-on-root thunks)
+	   (for-each (lambda (thunk)
+		       (spawn-on-root thunk 'output-forcer))
+		     thunks)
 	   #t))))
 	 
 (define unspecific (structure-ref primitives unspecific))