--- a/WorkspaceApplication.st	Sat Feb 07 19:07:46 2015 +0100
+++ b/WorkspaceApplication.st	Sun Feb 08 10:38:19 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 MultiViewToolApplication subclass:#WorkspaceApplication
 	instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts
 		smalltalkMenuEnabledHolder clipBoardWatcherProcess
@@ -2046,6 +2048,17 @@
 
     "Created: / 21-06-2011 / 09:03:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (comment): / 05-07-2011 / 15:23:53 / cg"
+!
+
+openRegularWorkspace
+    "/ always open a normal MyWorkspace
+
+    super open
+
+    "
+     MyWorkspaceOpened := nil.
+     WorkspaceApplication open.
+    "
 ! !
 
 !WorkspaceApplication methodsFor:'aspects'!
@@ -4552,14 +4565,14 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.278 2014-12-17 20:14:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.279 2015-02-08 09:38:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.278 2014-12-17 20:14:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.279 2015-02-08 09:38:19 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: WorkspaceApplication.st,v 1.278 2014-12-17 20:14:34 cg Exp $'
+    ^ '$Id: WorkspaceApplication.st,v 1.279 2015-02-08 09:38:19 cg Exp $'
 ! !