--- a/NewSystemBrowser.st	Tue Sep 28 10:30:46 2004 +0200
+++ b/NewSystemBrowser.st	Wed Sep 29 13:29:55 2004 +0200
@@ -21968,6 +21968,7 @@
                 with:(Processor activeProcess id)
                 with:(Processor activeProcess nameOrId)) withCRs.
     box action:[:selection | selectedProcessIndex := box selectionIndex].
+    box initialSelection:(processes identityIndexOf:Processor activeProcess).
 
     box showAtPointer.
     box destroy.
@@ -36290,7 +36291,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.783 2004-09-27 10:22:39 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.784 2004-09-29 11:29:55 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!

--- a/Tools__NewSystemBrowser.st	Tue Sep 28 10:30:46 2004 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Sep 29 13:29:55 2004 +0200
@@ -21968,6 +21968,7 @@
                 with:(Processor activeProcess id)
                 with:(Processor activeProcess nameOrId)) withCRs.
     box action:[:selection | selectedProcessIndex := box selectionIndex].
+    box initialSelection:(processes identityIndexOf:Processor activeProcess).
 
     box showAtPointer.
     box destroy.
@@ -36290,7 +36291,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.783 2004-09-27 10:22:39 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.784 2004-09-29 11:29:55 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!