--- a/ImageRdr.st	Sun Nov 02 20:49:19 1997 +0100
+++ b/ImageRdr.st	Mon Nov 03 16:20:08 1997 +0100
@@ -1574,6 +1574,7 @@
     depth := self bitsPerPixel.
     image := (Image implementorForDepth:depth) new.
     image depth:depth.
+    image fileName:inStream pathName.
     image 
         width:width 
         height:height
@@ -1585,7 +1586,7 @@
         mask:mask.
     ^ image
 
-    "Modified: 24.6.1997 / 15:53:23 / cg"
+    "Modified: / 3.11.1997 / 14:55:00 / cg"
 !
 
 images
@@ -1862,5 +1863,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/ImageRdr.st,v 1.54 1997-09-04 21:23:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ImageRdr.st,v 1.55 1997-11-03 15:20:08 cg Exp $'
 ! !

--- a/ImageReader.st	Sun Nov 02 20:49:19 1997 +0100
+++ b/ImageReader.st	Mon Nov 03 16:20:08 1997 +0100
@@ -1574,6 +1574,7 @@
     depth := self bitsPerPixel.
     image := (Image implementorForDepth:depth) new.
     image depth:depth.
+    image fileName:inStream pathName.
     image 
         width:width 
         height:height
@@ -1585,7 +1586,7 @@
         mask:mask.
     ^ image
 
-    "Modified: 24.6.1997 / 15:53:23 / cg"
+    "Modified: / 3.11.1997 / 14:55:00 / cg"
 !
 
 images
@@ -1862,5 +1863,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.54 1997-09-04 21:23:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.55 1997-11-03 15:20:08 cg Exp $'
 ! !