--- a/WorkspaceApplication.st	Mon Jun 16 11:25:01 2003 +0200
+++ b/WorkspaceApplication.st	Mon Jun 16 11:55:59 2003 +0200
@@ -595,6 +595,14 @@
 "/        needRemove := false.
 "/    ].
 
+    path := (Smalltalk getSystemFileName:'GettingStarted.wsp').
+    (path notNil and:[path asFilename exists]) ifTrue:[
+        wsApp addWindow:(HVScrollableView for:Workspace) named:'Getting Started' asFirst:false.
+        wsApp loadFile:path.
+        needRemove ifTrue:[wsApp removeWorkspace:1].  "/ the original Workspace
+        needRemove := false.
+    ].
+
     path := (Smalltalk getSystemFileName:'Keyboard.wsp').
     (path notNil and:[path asFilename exists]) ifTrue:[
         wsApp addWindow:(HVScrollableView for:Workspace) named:'Keyboard' asFirst:false.
@@ -1584,5 +1592,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.61 2003-04-22 09:41:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.62 2003-06-16 09:55:59 cg Exp $'
 ! !