--- a/STFormRdr.st	Sat Feb 01 15:08:45 1997 +0100
+++ b/STFormRdr.st	Sat Feb 01 15:10:35 1997 +0100
@@ -51,6 +51,17 @@
 "
 ! !
 
+!ST80FormReader class methodsFor:'initialization'!
+
+initialize
+    "install myself in the Image classes fileFormat table
+     for the `.form' extension."
+
+    Image addReader:self suffix:'form'.
+
+    "Created: 1.2.1997 / 15:09:49 / cg"
+! !
+
 !ST80FormReader class methodsFor:'testing'!
 
 canRepresent:anImage
@@ -150,5 +161,6 @@
 !ST80FormReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.15 1996-05-10 16:45:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.16 1997-02-01 14:09:53 cg Exp $'
 ! !
+ST80FormReader initialize!