diff --git a/scheme/rts/thread.scm b/scheme/rts/thread.scm
index 32facae..922199d 100644
--- a/scheme/rts/thread.scm
+++ b/scheme/rts/thread.scm
@@ -471,7 +471,7 @@
 (define (terminate-thread! thread)
   (let ((interrupts (set-enabled-interrupts! no-interrupts)))
     (clear-thread-cell! thread)
-    (interrupt-thread thread terminate-current-thread)))
+    (interrupt-thread thread (lambda args (terminate-current-thread)))))
 
 ;----------------
 ; Make THREAD execute PROC the next time it is run.  The thread's own