--- a/WorkspaceApplication.st	Mon Dec 08 00:28:30 2008 +0100
+++ b/WorkspaceApplication.st	Mon Dec 08 15:00:56 2008 +0100
@@ -41,6 +41,8 @@
 
     [author:]
         Claus Gittinger
+
+     self startAsWebService
 "
 ! !
 
@@ -56,6 +58,10 @@
     ^ UserPreferences current toolbarVisibleInWorkspace
 
     "Created: / 14-07-2007 / 16:42:50 / cg"
+!
+
+webServiceLinkName
+    ^ '/workspace'
 ! !
 
 !WorkspaceApplication class methodsFor:'interface specs'!
@@ -2394,5 +2400,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.166 2008-11-01 16:45:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.167 2008-12-08 14:00:56 sr Exp $'
 ! !