--- a/DeviceWorkstation.st	Thu Mar 24 09:59:57 2011 +0100
+++ b/DeviceWorkstation.st	Thu Mar 24 13:43:06 2011 +0100
@@ -2929,10 +2929,10 @@
 
     self supportsIconMasks ifFalse:[^ nil].
 
-    aMask depth ~~ 1 ifTrue:[
-	^ aMask asMonochromeFormOn:self
-    ].
-    ^ aMask
+    aMask depth == 1 ifTrue:[
+        ^ aMask onDevice:self.
+    ].
+    ^ aMask asMonochromeFormOn:self
 
     "Created: / 30-10-2007 / 16:38:37 / cg"
 !
@@ -8095,11 +8095,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.558 2011-02-09 13:03:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.559 2011-03-24 12:43:06 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.558 2011-02-09 13:03:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.559 2011-03-24 12:43:06 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!