--- a/ColorValue.st	Tue Mar 04 20:17:56 1997 +0100
+++ b/ColorValue.st	Wed Mar 05 13:24:26 1997 +0100
@@ -170,9 +170,18 @@
         (#ColorValue scaledRed scaledGreen scaledBlue)
      This is the reverse operation to #literalArrayEncoding."
 
-    red := (encoding at:2).
-    green := (encoding at:3).
-    blue := (encoding at:4).
+    |clr|
+
+    encoding size == 2 ifTrue:[
+        clr := ColorValue name:(encoding at:2).
+        red := clr red.
+        green := clr green.
+        blue := clr blue.
+    ] ifFalse:[
+        red := (encoding at:2).
+        green := (encoding at:3).
+        blue := (encoding at:4).
+    ]
 
     "
       ColorValue new fromLiteralArrayEncoding:#(#Color 7700 7700 7700)
@@ -205,5 +214,5 @@
 !ColorValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.14 1997-02-11 22:48:45 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.15 1997-03-05 12:24:26 ca Exp $'
 ! !