--- a/WorkspaceApplication.st	Tue Sep 25 21:11:15 2007 +0200
+++ b/WorkspaceApplication.st	Tue Sep 25 21:11:19 2007 +0200
@@ -805,11 +805,18 @@
     "
      |ws b|
      ws := self openSystemWorkspace.
-     ws selectedWorkspaceIndexHolder value:7.
-     ws selectAll.
+     ws addMyWorkspace.
+     ws selectedWorkspaceIndexHolder value:(ws workspaces size).
+     ws selectedWorkspace contents:'Tools::NewSystemBrowser open'; selectAll.
      ws selectedWorkspace 
         add:(b := Button label:'DoIt' action:[ws doIt. b destroy])
     "
+    "
+     |ws b|
+     ws := self new.
+     ws open. 
+     ws selectedWorkspace contents:'Tools::NewSystemBrowser open'; selectAll.
+    "
 
     "Modified: / 25-09-2007 / 21:04:50 / cg"
 !
@@ -1747,5 +1754,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.139 2007-09-25 19:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.140 2007-09-25 19:11:19 ab Exp $'
 ! !