--- a/StandardSystemView.st	Mon Oct 25 15:20:40 2004 +0200
+++ b/StandardSystemView.st	Mon Oct 25 15:22:58 2004 +0200
@@ -713,7 +713,7 @@
 icon
     "return the form defined as icon"
 
-    ^ icon
+    ^ icon value
 !
 
 icon:aFormOrImage
@@ -771,9 +771,9 @@
 
     "/ only images possibly have iconMasks
     icon notNil ifTrue:[
-	(mask := icon mask) notNil ifTrue:[
-	    ^ self convertedIconMask:mask
-	]
+        (mask := icon value mask) notNil ifTrue:[
+            ^ self convertedIconMask:mask
+        ]
     ].
 
     ^ nil
@@ -1543,7 +1543,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.162 2004-10-25 13:20:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.163 2004-10-25 13:22:58 cg Exp $'
 ! !
 
 StandardSystemView initialize!