--- a/Process.st	Thu Aug 19 21:39:34 2010 +0100
+++ b/Process.st	Thu Aug 26 11:12:57 2010 +0100
@@ -747,6 +747,16 @@
     suspendActions := nil.
 
     "Created: 12.1.1997 / 00:36:16 / cg"
+!
+
+removeExitAction:anExitAction ifAbsent:exceptionBlock
+    "remove the identical exitAction; if found, remove and return it;
+    if not, return the value from evaluating exceptionBlock"
+
+    exitActions notNil ifTrue:[
+        ^ exitActions removeIdentical:anExitAction ifAbsent:exceptionBlock.
+    ].
+    ^ exceptionBlock value.
 ! !
 
 !Process methodsFor:'accessing-stack'!
@@ -2043,18 +2053,19 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Process.st 10549 2010-07-20 11:11:45Z vranyj1 $'
+    ^ '$Id: Process.st 10570 2010-08-26 10:12:57Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Process.st,v 1.170 2010/03/06 13:45:45 stefan Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/Process.st,v 1.171 2010/08/13 07:40:24 sr Exp '
 !
 
 version_SVN
-    ^ '$Id: Process.st 10549 2010-07-20 11:11:45Z vranyj1 $'
+    ^ '$Id: Process.st 10570 2010-08-26 10:12:57Z vranyj1 $'
 ! !
 
 Process initialize!
 
 
 
+