--- a/Process.st	Thu Sep 26 20:52:44 2002 +0200
+++ b/Process.st	Thu Sep 26 20:53:12 2002 +0200
@@ -1326,16 +1326,18 @@
     "wait until the receiver is suspended."
 
     self isDead ifFalse:[
-	[
-	    "/ must check again - interrupt could have happened
-	    "/ and process already terminated.
-	    self isDead ifFalse:[
-		suspendSemaphore isNil ifTrue:[
-		    suspendSemaphore := Semaphore new name:'process suspend'
-		].
-		suspendSemaphore wait
-	    ]
-	] valueUninterruptably
+        [
+            "/ must check again - interrupt could have happened
+            "/ and process already terminated.
+            self isDead ifFalse:[
+                id notNil ifTrue:[
+                    suspendSemaphore isNil ifTrue:[
+                        suspendSemaphore := Semaphore new name:'process suspend'
+                    ].
+                    suspendSemaphore wait
+                ]
+            ]
+        ] valueUninterruptably
     ]
 
     "Modified: 8.11.1996 / 23:05:24 / cg"
@@ -1922,7 +1924,7 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.130 2002-09-26 18:52:44 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.131 2002-09-26 18:53:12 penk Exp $'
 ! !
 
 Process initialize!