From 6643c70391cca6fdd8e3d8027e67189843d4ce4d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 17 Dec 2001 15:39:22 +0000
Subject: [PATCH] Fixed check for stopped child.

---
 scsh/cygwin32/waitcodes.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))