--- a/Tools__NewSystemBrowser.st	Mon Sep 02 17:05:24 2013 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Sep 02 17:16:07 2013 +0200
@@ -17937,6 +17937,11 @@
         addSubView:(check := CheckBox label:(resources string:'Show Full Name (do not strip off Namespace)') model:showFullNameHolder) before:nil.
     showFullNameHolder onChangeEvaluate:updateList.
     box enterField origin:(0 @ check corner y).
+    box enterField onKey:#CursorDown leaveWith:[ box listView requestFocus.
+                                                 box listView hasSelection ifFalse:[
+                                                    box listView selectLast "/ First
+                                                 ]
+                                               ].
     box listView origin:(0 @ check corner y).
 
     box extent:(400 @ 350).
@@ -58992,15 +58997,15 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1970 2013-08-31 22:40:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1971 2013-09-02 15:16:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1970 2013-08-31 22:40:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1971 2013-09-02 15:16:07 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.1970 2013-08-31 22:40:03 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.1971 2013-09-02 15:16:07 cg Exp $'
 ! !