diff --git a/scsh/cygwin32/waitcodes.scm b/scsh/cygwin32/waitcodes.scm
index be67462..245e36d 100644
--- a/scsh/cygwin32/waitcodes.scm
+++ b/scsh/cygwin32/waitcodes.scm
@@ -32,7 +32,7 @@
 (define (status:term-sig status)
   (let ((termsig (bitwise-and status #x7F)))
     (and (not (zero? termsig))				; Didn't exit.
-	 (not (= #x7F))					; Not suspended.
+	 (not (= termsig #x7F))				; Not suspended.
 	 termsig)))