--- a/DeviceWorkstation.st	Thu Jul 24 14:01:04 2014 +0200
+++ b/DeviceWorkstation.st	Fri Jul 25 23:25:22 2014 +0200
@@ -3521,9 +3521,9 @@
 
 colorScaledRed:red scaledGreen:green scaledBlue:blue
     visualType == #TrueColor ifTrue:[
-	^ (((red bitShift:-8) bitShift:redShift)
-	  bitOr:((green bitShift:-8) bitShift:greenShift))
-	  bitOr:((blue bitShift:-8) bitShift:blueShift)
+        ^ (((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'
 
@@ -8373,11 +8373,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.619 2014-07-08 23:11:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.620 2014-07-25 21:25:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.619 2014-07-08 23:11:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.620 2014-07-25 21:25:22 cg Exp $'
 ! !