--- a/Color.st	Tue Oct 21 21:39:18 2014 +0200
+++ b/Color.st	Thu Oct 23 14:19:08 2014 +0200
@@ -1443,18 +1443,18 @@
 
     | mask bits |
 
-    (Smalltalk dialectName = 'SmalltalkX') ifTrue:[
-	depth == 1 ifTrue:[
-	    ^ Form mediumGreyFormOn:Screen current
-	].
-	self shouldImplement.
+    (Smalltalk isSmalltalkX) ifTrue:[
+        depth == 1 ifTrue:[
+            ^ Form mediumGreyFormOn:Screen current
+        ].
+        self shouldImplement.
     ].
 
     mask := (1 bitShift: depth) - 1.
     bits := 2 * depth.
     [bits >= 32] whileFalse: [
-	mask := mask bitOr: (mask bitShift: bits).  "double the length of mask"
-	bits := bits + bits
+        mask := mask bitOr: (mask bitShift: bits).  "double the length of mask"
+        bits := bits + bits
     ].
     ^ Bitmap with: mask with: mask bitInvert32
 
@@ -5600,11 +5600,11 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.234 2014-07-24 12:01:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.235 2014-10-23 12:19:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.234 2014-07-24 12:01:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.235 2014-10-23 12:19:08 cg Exp $'
 ! !