--- a/UIPainter.st	Tue Oct 07 15:40:43 2008 +0200
+++ b/UIPainter.st	Tue Oct 07 18:48:00 2008 +0200
@@ -4954,7 +4954,7 @@
     lastPort := LastPort := port.
 
     app := self specClass new.
-    app link:pageName.
+    app webLink:pageName.
     app service:service.
     app defineInterface:(self specSelector).
     app addToService.