diff --git a/scsh/bsd/waitcodes.scm b/scsh/bsd/waitcodes.scm
index ce370ae..5e0619d 100644
--- a/scsh/bsd/waitcodes.scm
+++ b/scsh/bsd/waitcodes.scm
@@ -31,7 +31,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)))