--- a/ApplicationModel.st	Fri Mar 21 18:37:47 2003 +0100
+++ b/ApplicationModel.st	Fri Mar 21 19:05:38 2003 +0100
@@ -1856,6 +1856,10 @@
     "open a standard interface as slave"
 
     ^ self openAs:#slave
+
+    "
+     WorkspaceApplication new openAsSlave.
+    "
 !
 
 openAt:aPoint
@@ -2720,7 +2724,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.181 2003-02-28 11:42:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.182 2003-03-21 18:05:38 cg Exp $'
 ! !
 
 ApplicationModel initialize!