--- a/XPMReader.st	Thu Apr 24 21:20:58 1997 +0200
+++ b/XPMReader.st	Thu Apr 24 21:33:14 1997 +0200
@@ -500,7 +500,7 @@
             isMasked ifTrue:[
                 outStream nextPut:(map at:maskColorIndex)
             ] ifFalse:[
-                clr := image atX:x y:y.
+                clr := image colorAtX:x y:y.
                 idx := usedColors indexOf:clr.
                 outStream nextPut:(map at:idx)
             ]
@@ -510,12 +510,12 @@
     outStream nextPutLine:'};'.
     outStream close.
 
-    "Modified: 24.4.1997 / 16:56:08 / cg"
+    "Modified: 24.4.1997 / 21:33:03 / cg"
 ! !
 
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.31 1997-04-24 18:33:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.32 1997-04-24 19:33:14 cg Exp $'
 ! !
 XPMReader initialize!