--- a/STFormRdr.st	Mon Jun 30 22:35:35 1997 +0200
+++ b/STFormRdr.st	Mon Jun 30 22:56:45 1997 +0200
@@ -57,7 +57,7 @@
     "install myself in the Image classes fileFormat table
      for the `.form' extension."
 
-    Image addReader:self suffix:'form'.
+    MIMETypes defineImageType:nil suffix:'form' reader:self.
 
     "Created: 1.2.1997 / 15:09:49 / cg"
 ! !
@@ -190,6 +190,6 @@
 !ST80FormReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.18 1997-04-21 17:50:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.19 1997-06-30 20:56:09 cg Exp $'
 ! !
 ST80FormReader initialize!