--- a/XPMReader.st	Tue Jul 28 12:00:01 1998 +0200
+++ b/XPMReader.st	Tue Jul 28 22:06:10 1998 +0200
@@ -425,7 +425,7 @@
     |usedColors nColorsUsed nColors nChars baseName map maskColorIndex
      isMasked imageMask|
 
-    usedColors := image usedColors.
+    usedColors := image usedColors asArray.
     nColors := nColorsUsed := usedColors size.
     (imageMask := image mask) notNil ifTrue:[
         nColors := nColors + 1.
@@ -513,12 +513,12 @@
     outStream nextPutLine:'};'.
     outStream close.
 
-    "Modified: 22.7.1997 / 10:30:27 / cg"
+    "Modified: / 28.7.1998 / 21:52:13 / cg"
 ! !
 
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.40 1998-07-27 18:02:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.41 1998-07-28 20:06:10 cg Exp $'
 ! !
 XPMReader initialize!