--- a/ProcSched.st	Tue Nov 22 15:28:10 1994 +0100
+++ b/ProcSched.st	Wed Nov 23 00:02:57 1994 +0100
@@ -32,7 +32,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.23 1994-10-28 01:28:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.24 1994-11-22 23:02:43 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.23 1994-10-28 01:28:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.24 1994-11-22 23:02:43 claus Exp $
 "
 !
 
@@ -799,7 +799,6 @@
     id isNil ifTrue:[^ self].   "already dead"
 
     aProcess setId:nil state:#dead.
-"/    aProcess setStartBlock:nil.
 
     wasBlocked := OperatingSystem blockInterrupts.
 
@@ -839,7 +838,7 @@
 
 processTermination
     "sent by VM if the current process finished its startup block 
-     without proper process termination, lay him to rest now. 
+     without proper process termination. Lay him to rest now. 
      This can only happen, if something went wrong in Block>>newProcess, 
      since the block defined there always terminates itself."
 
@@ -848,22 +847,22 @@
 !
 
 terminate:aProcess
-    "terminate aProcess. This is deon by sending aProcess the terminateSignal,
+    "terminate aProcess. This is donen by sending aProcess the terminateSignal,
      which will evaluate any unwind blocks and finally do a hard terminate."
 
     aProcess terminate
 !
 
 terminateActive
-    "terminate the current process (i.e. the currently running process kills itself).
+    "terminate the current process (i.e. the running process kills itself).
      The active process is sent the terminateSignal so it will evaluate any
-     unwind blocks."
+     unwind blocks and finally do a hard terminate."
 
     activeProcess terminate
 !
 
 interruptActive
-    "interrupt the current process (i.e. myself)"
+    "interrupt the current process"
 
     activeProcess interrupt
 !