--- a/XWDReader.st	Mon Jun 30 22:35:35 1997 +0200
+++ b/XWDReader.st	Mon Jun 30 22:56:45 1997 +0200
@@ -64,7 +64,7 @@
     "tell Image-class, that a new fileReader is present
      for the '.xwd' extension."
 
-    Image addReader:self suffix:'xwd' mimeType:'image/x-xwindowdump'.
+    MIMETypes defineImageType:'image/x-xwindowdump' suffix:'xwd' reader:self
 
     "Created: 1.2.1997 / 15:04:46 / cg"
 ! !
@@ -296,6 +296,6 @@
 !XWDReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XWDReader.st,v 1.20 1997-06-24 20:05:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XWDReader.st,v 1.21 1997-06-30 20:56:45 cg Exp $'
 ! !
 XWDReader initialize!