--- a/XPMReader.st	Fri Jan 31 18:59:54 1997 +0100
+++ b/XPMReader.st	Sat Feb 01 15:07:04 1997 +0100
@@ -70,7 +70,9 @@
     "tell Image-class, that a new fileReader is present
      for the '.xpm' extension."
 
-    Image fileFormats at:'.xpm'  put:self.
+    Image addReader:self suffix:'xpm'.
+
+    "Modified: 1.2.1997 / 15:04:20 / cg"
 ! !
 
 !XPMReader class methodsFor:'testing'!
@@ -339,6 +341,6 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.19 1997-01-24 14:46:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.20 1997-02-01 14:06:54 cg Exp $'
 ! !
 XPMReader initialize!