--- a/XBMReader.st	Fri Jan 31 18:59:54 1997 +0100
+++ b/XBMReader.st	Sat Feb 01 15:07:04 1997 +0100
@@ -58,9 +58,9 @@
     "tell Image-class, that a new fileReader is present
      for the '.xbm' extension."
 
-    Image fileFormats at:'.xbm'  put:self.
+    Image addReader:self suffix:'xbm'.
 
-    "Modified: 23.4.1996 / 12:37:30 / cg"
+    "Modified: 1.2.1997 / 15:04:09 / cg"
 ! !
 
 !XBMReader class methodsFor:'testing'!
@@ -293,6 +293,6 @@
 !XBMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.28 1997-01-10 17:31:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XBMReader.st,v 1.29 1997-02-01 14:05:48 cg Exp $'
 ! !
 XBMReader initialize!