--- a/Process.st	Mon Mar 06 09:57:41 2006 +0100
+++ b/Process.st	Mon Mar 06 09:57:48 2006 +0100
@@ -416,8 +416,7 @@
      This is only a debugging helper, to allow
      easy access of a process by name in the MiniDebugger"
 
-    self allSubInstances do:[:aProcess | aProcess id = id ifTrue:[^ aProcess]].
-    ^ nil
+    ^ self allSubInstances detect:[:aProcess | aProcess id = id] ifNone:nil.
 
     "
      Process findProcessWithId:1
@@ -431,8 +430,7 @@
      This is only a debugging helper, to allow
      easy access of a process by name in the MiniDebugger"
 
-    self allSubInstances do:[:aProcess | aProcess name = name ifTrue:[^ aProcess]].
-    ^ nil
+    ^ self allSubInstances detect:[:aProcess | aProcess name = name] ifNone:nil.
 
     "
      Process findProcessWithName:'scheduler'
@@ -2027,7 +2025,7 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.158 2006-01-31 22:10:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.159 2006-03-06 08:57:48 cg Exp $'
 ! !
 
 Process initialize!