--- a/WorkspaceApplication.st	Thu Apr 25 09:39:08 2013 +0200
+++ b/WorkspaceApplication.st	Thu Apr 25 10:34:44 2013 +0200
@@ -1715,8 +1715,9 @@
 
 openMyWorkspace
     "/ openMyWorkspace_new leads to an error in root /, which we dont understand...
-    self openMyWorkspace_new
-    "/ self openMyWorkspace_old
+    self openMyWorkspace_new.
+    "/ self openMyWorkspace_old.
+    MyWorkspaceOpened := true.
 
     "
       WorkspaceApplication openMyWorkspace
@@ -1999,7 +2000,6 @@
     (MyWorkspaceOpened == true) ifTrue:[
         super open
     ] ifFalse:[
-        MyWorkspaceOpened := true.
         self openMyWorkspace
     ].
 
@@ -4025,11 +4025,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.239 2013-04-03 22:22:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.240 2013-04-25 08:34:44 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.239 2013-04-03 22:22:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.240 2013-04-25 08:34:44 stefan Exp $'
 !
 
 version_SVN