diff -r 0da285e38f50 -r 00275352f251 Icon.st
--- a/Icon.st	Tue Oct 01 11:19:37 2002 +0200
+++ b/Icon.st	Wed Oct 02 11:35:53 2002 +0200
@@ -74,7 +74,8 @@
 
 initialize
     KnownIcons isNil ifTrue:[
-        KnownIcons := Dictionary new
+        KnownIcons := Dictionary new.
+	Color initialize.
     ]
 
     "
@@ -167,6 +168,9 @@
 constantNamed:aName put:anImage
     "register anImage under aName."
 
+    KnownIcons isNil ifTrue:[
+	self initialize
+    ].
     KnownIcons at:aName put:anImage
 
     "Modified: 23.4.1996 / 11:40:51 / cg"
@@ -177,6 +181,9 @@
 
     |icon nm|
 
+    KnownIcons isNil ifTrue:[
+	self initialize
+    ].
     icon := KnownIcons at:aName ifAbsent:[].
 
     (icon isNil and:[doSearchForFile]) ifTrue:[
@@ -621,6 +628,6 @@
 !Icon class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.30 2001-06-08 16:14:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Icon.st,v 1.31 2002-10-02 09:35:53 cg Exp $'
 ! !
 Icon initialize!