--- a/ApplicationModel.st	Sun May 03 18:04:46 2009 +0200
+++ b/ApplicationModel.st	Sun May 03 22:34:46 2009 +0200
@@ -990,7 +990,7 @@
     "
 !
 
-startInPortalService:aPortalService
+startInPortalService:aPortalServiceOrSession
     "this is not yet a public interface. For internal exept use only"
 
     |app|
@@ -999,7 +999,7 @@
     app setDevice:(WebApplicationDevice new).
     app initialize.
     app initializeResources.
-    app startInPortalService:aPortalService.
+    app startInPortalService:aPortalServiceOrSession.
     ^ app.
 
     "
@@ -2998,8 +2998,9 @@
     "
 !
 
-startInPortalService:aPortalServiceOrNil 
-    self service:aPortalServiceOrNil.
+startInPortalService:aPortalServiceOrSession 
+    aPortalServiceOrSession application:self.
+    self service:aPortalServiceOrSession.
     self defineInterface.
     self addToService.
 !
@@ -3579,7 +3580,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.287 2009-05-03 16:04:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.288 2009-05-03 20:34:46 cg Exp $'
 ! !
 
 ApplicationModel initialize!