--- a/UIPainter.st	Thu Sep 19 13:54:44 2013 +0200
+++ b/UIPainter.st	Thu Dec 05 12:41:35 2013 +0100
@@ -2947,18 +2947,16 @@
 !
 
 canInstallAsWebPage
-    ^ self specClass notNil
-       and:[ self specClass isSubclassOf:WebApplicationModel ]
+    ^ specClass notNil
+       and:[ specClass isSubclassOf:WebApplicationModel ]
 
     "Created: / 14-01-2008 / 17:34:56 / cg"
 !
 
 canInstallAsWebPageHolder
-    |a|
-
-    a := builder booleanValueAspectFor:#canInstallAsWebPageHolder.
-    a value:self canInstallAsWebPage.
-    ^ a
+    ^ builder 
+            booleanValueAspectFor:#canInstallAsWebPageHolder
+            initialValue:(self canInstallAsWebPage).
 
     "Created: / 14-01-2008 / 17:36:04 / cg"
 !