diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 81b3ee3bb..6e6f1e1fb 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2872,7 +2872,7 @@
 				    ;; Make a backup copy of the stack
 				    (fluid-set! before-signal-stack
 						(fluid-ref the-last-stack))
-				    (save-stack %deliver-signals)
+				    (save-stack 1)
 				    (scm-error 'signal
 					       #f
 					       msg