--- a/XPMReader.st	Sat Feb 01 15:08:45 1997 +0100
+++ b/XPMReader.st	Sat Feb 01 15:10:35 1997 +0100
@@ -68,11 +68,12 @@
 
 initialize
     "tell Image-class, that a new fileReader is present
-     for the '.xpm' extension."
+     for the '.xpm' and '.pm' extensions."
 
     Image addReader:self suffix:'xpm'.
+    Image addReader:self suffix:'pm'.
 
-    "Modified: 1.2.1997 / 15:04:20 / cg"
+    "Modified: 1.2.1997 / 15:10:29 / cg"
 ! !
 
 !XPMReader class methodsFor:'testing'!
@@ -341,6 +342,6 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.20 1997-02-01 14:06:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.21 1997-02-01 14:10:35 cg Exp $'
 ! !
 XPMReader initialize!