--- a/ColorValue.st	Mon Mar 23 16:16:23 2015 +0100
+++ b/ColorValue.st	Tue Mar 24 16:14:33 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -9,8 +11,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libview2' }"
 
-"{ Package: 'stx:libview2' }"
+"{ NameSpace: Smalltalk }"
 
 Color subclass:#ColorValue
 	instanceVariableNames:''
@@ -180,9 +183,16 @@
         green := clr scaledGreen.
         blue := clr scaledBlue.
     ] ifFalse:[
-        red := (encoding at:2).
-        green := (encoding at:3).
-        blue := (encoding at:4).
+        (encoding at:2) isSymbol ifTrue:[
+            clr := ColorValue perform:(encoding at:2) withArguments:(encoding at:3).
+            red := clr scaledRed.
+            green := clr scaledGreen.
+            blue := clr scaledBlue.
+        ] ifFalse:[
+            red := (encoding at:2).
+            green := (encoding at:3).
+            blue := (encoding at:4).
+        ]
     ]
 
     "
@@ -214,8 +224,11 @@
     "Modified: 22.1.1997 / 04:17:59 / cg"
 ! !
 
+
+
 !ColorValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.17 2006-07-03 16:10:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.18 2015-03-24 15:14:33 cg Exp $'
 ! !
+