--- a/AbstractLauncherApplication.st	Wed Oct 01 19:44:38 2008 +0200
+++ b/AbstractLauncherApplication.st	Wed Oct 01 20:29:30 2008 +0200
@@ -1483,6 +1483,20 @@
     Project notNil ifTrue: [(ProjectView for: Project new) open]
 !
 
+openEvaluationWorkspace
+    WorkspaceApplication notNil ifTrue:[
+        ^ WorkspaceApplication openEvaluationWorkspace
+    ].
+    ^ self openApplication:Workspace
+!
+
+openSystemWorkspace
+    WorkspaceApplication notNil ifTrue:[
+        ^ WorkspaceApplication openSystemWorkspace
+    ].
+    ^ self openApplication:Workspace
+!
+
 openTerminal
     TerminalApplication notNil ifTrue:[
         ^ TerminalApplication open
@@ -6583,5 +6597,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.359 2008-05-30 12:24:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.360 2008-10-01 18:29:30 cg Exp $'
 ! !