--- a/Color.st	Tue Jan 25 09:08:07 2005 +0100
+++ b/Color.st	Wed Jan 26 17:14:08 2005 +0100
@@ -4966,9 +4966,16 @@
 !Color methodsFor:'printing'!
 
 hex
-	^(self red * 255) asInteger asCharacter hex,
-	(self green * 255) asInteger asCharacter hex,
-	(self blue * 255) asInteger asCharacter hex
+    ^ (self redByte   printStringRadix:16 size:2 fill:$0),
+      (self greenByte printStringRadix:16 size:2 fill:$0),
+      (self blueByte  printStringRadix:16 size:2 fill:$0)
+
+    "
+        self red hex
+        self green hex
+        self blue hex
+        self yellow hex
+    "
 ! !
 
 !Color methodsFor:'printing & storing'!
@@ -5338,7 +5345,7 @@
 !Color class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.194 2004-10-16 12:30:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.195 2005-01-26 16:14:08 stefan Exp $'
 ! !
 
 Color initialize!