--- a/XPMReader.st	Wed Apr 23 19:02:16 1997 +0200
+++ b/XPMReader.st	Thu Apr 24 18:08:20 1997 +0200
@@ -485,13 +485,14 @@
     maskColorIndex isNil ifTrue:[
         isMasked := false
     ].
+
     0 to:image height-1 do:[:y |
         outStream nextPutAll:'"'.
         0 to:image width-1 do:[:x |
             |clr idx|
 
             maskColorIndex notNil ifTrue:[
-                isMasked := (imageMask valueAtX:x y:y) == 0
+                isMasked := (imageMask pixelAtX:x y:y) == 0
             ].
             isMasked ifTrue:[
                 outStream nextPut:(map at:maskColorIndex)
@@ -506,12 +507,12 @@
     outStream nextPutLine:'};'.
     outStream close.
 
-    "Modified: 1.3.1997 / 21:34:15 / cg"
+    "Modified: 24.4.1997 / 16:56:08 / cg"
 ! !
 
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.29 1997-04-21 15:11:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.30 1997-04-24 16:08:20 cg Exp $'
 ! !
 XPMReader initialize!