--- a/WorkspaceApplication.st	Tue Nov 05 12:02:59 2002 +0100
+++ b/WorkspaceApplication.st	Tue Nov 05 12:09:00 2002 +0100
@@ -451,6 +451,7 @@
         wsApp addWindow:(HVScrollableView for:Workspace) named:'README' asFirst:false.
         wsApp loadFile:path.
         wsApp removeWorkspace:1.  "/ the original Workspace
+        wsApp renameWorkspace:1 to:'LICENCE README'.
         needRemove := false.
     ].
 
@@ -471,6 +472,14 @@
         needRemove := false.
     ].
 
+    path := (Smalltalk getSystemFileName:'Setup.wsp').
+    (path notNil and:[path asFilename exists]) ifTrue:[
+        wsApp addWindow:(HVScrollableView for:Workspace) named:'Setup' asFirst:false.
+        wsApp loadFile:path.
+        needRemove ifTrue:[wsApp removeWorkspace:1].  "/ the original Workspace
+        needRemove := false.
+    ].
+
     path := (Smalltalk getSystemFileName:'Hello.wsp').
     (path notNil and:[path asFilename exists]) ifTrue:[
         wsApp addWindow:(HVScrollableView for:Workspace) named:'Welcome' asFirst:false.
@@ -1281,5 +1290,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.44 2002-11-04 14:30:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.45 2002-11-05 11:09:00 cg Exp $'
 ! !