--- a/DeviceWorkstation.st	Sun Jan 22 10:50:57 2017 +0100
+++ b/DeviceWorkstation.st	Sun Jan 22 10:51:27 2017 +0100
@@ -3620,12 +3620,17 @@
 !
 
 colorScaledRed:red scaledGreen:green scaledBlue:blue
+    "return an id for a color.
+     On trueColor displays, nothing is actually allocated,
+     and the returned colorID is formed by simply packing the RGB values." 
+    
     visualType == #TrueColor ifTrue:[
-	^ (((red asInteger bitShift:-8) bitShift:redShift)
-	  bitOr:((green asInteger bitShift:-8) bitShift:greenShift))
-	  bitOr:((blue asInteger bitShift:-8) bitShift:blueShift)
-    ].
-    self subclassResponsibility:'only supported for trueColor displays'
+        ^ (((red asInteger bitShift:-8) bitShift:redShift)
+          bitOr:((green asInteger bitShift:-8) bitShift:greenShift))
+          bitOr:((blue asInteger bitShift:-8) bitShift:blueShift)
+    ].
+
+    self subclassResponsibility:'this fallback is only valid for trueColor displays'
 
     "Modified: / 03-02-2014 / 11:30:23 / cg"
 !