Provide names for housekeeping threads for better debugging.

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)

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))