diff --git a/scheme/rts/interrupt.scm b/scheme/rts/interrupt.scm
index bf53bd7..315914e 100644
--- a/scheme/rts/interrupt.scm
+++ b/scheme/rts/interrupt.scm
@@ -116,3 +116,8 @@
 				   10)
 			 (car maybe-required-space)))
   (session-data-set! space-shortage-handler handler))
+; For scsh.
+
+(define (interrupt-handlers-vector) 
+  (/ 1 0)
+  (session-data-ref interrupt-handlers))