diff --git a/util/int/ChangeLog b/util/int/ChangeLog
index 41b5caed1..8415e9a36 100644
--- a/util/int/ChangeLog
+++ b/util/int/ChangeLog
@@ -1,3 +1,6 @@
+26-Jan-90  Ceriel Jacobs (ceriel) at ceriel
+	Fixed so that two consecutive SIG's have no effect.
+
  8-Dec-89  Ceriel Jacobs (ceriel) at ceriel
 	Bug fix: one of the many ZRL encodings was decoded wrong.
 
diff --git a/util/int/do_misc.c b/util/int/do_misc.c
index d0eb420d2..6bd9aa756 100644
--- a/util/int/do_misc.c
+++ b/util/int/do_misc.c
@@ -570,7 +570,10 @@ DoSIGz()
 
 	LOG(("@M6 DoSIGz()"));
 	spoilFRA();
-	npush(TrapPI, psize);
+	if (OnTrap == TR_HALT) {
+		npush(-2L, psize);
+	}
+	else	npush(TrapPI, psize);
 	if (tpi == -2) {
 		OnTrap = TR_HALT;
 		TrapPI = 0;