--- a/ApplicationModel.st	Wed Dec 03 13:24:25 2008 +0100
+++ b/ApplicationModel.st	Fri Dec 05 17:38:39 2008 +0100
@@ -904,6 +904,24 @@
 !
 
 startAsWebService
+    self startAsWebService:(self webServiceLinkName)
+
+    "
+     self startAsWebService
+    "
+!
+
+startAsWebService:linkName
+
+    HTTPPortalService startWithApplication:self link:linkName
+
+    "
+     self startAsWebService:'hello'
+     UBS::UBSUsecase startAsWebService:'uuu'
+    "
+!
+
+startAsWebService_old
     "this is not yet a public interface. For internal exept use only"
 
     |app|
@@ -933,6 +951,17 @@
         startInPortalService:
             (HTTPPortalService allInstances select:[:s | s httpServer port = 8080]) first
     "
+!
+
+webServiceLinkName
+    "the link name, under which instances of myself are found in the httpServer"
+
+    "/ typically, redefined as:
+    "/  ^ self name
+    "/ or
+    "/  ^ 'ubs'
+
+    ^ self subclassResponsibility
 ! !
 
 !ApplicationModel methodsFor:'accessing'!
@@ -3439,7 +3468,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.275 2008-12-02 11:01:02 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.276 2008-12-05 16:38:39 sr Exp $'
 ! !
 
 ApplicationModel initialize!