--- a/Color.st	Tue Sep 06 16:03:23 2005 +0200
+++ b/Color.st	Wed Sep 14 00:34:45 2005 +0200
@@ -942,7 +942,7 @@
      in percent (0..100)"
 
     self withRGBFromHue:h light:l saturation:s do:[:r :g :b |
-        ^ self redPercent:r greenPercent:g bluePercent:b
+        ^ self redPercent:(r min:100) greenPercent:(g min:100) bluePercent:(b min:100)
     ]
 
     "
@@ -5353,7 +5353,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.196 2005-07-12 13:58:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.197 2005-09-13 22:34:45 cg Exp $'
 ! !
 
 Color initialize!