--- a/ImageReader.st	Mon Jan 12 22:31:27 1998 +0100
+++ b/ImageReader.st	Thu Jan 15 16:38:11 1998 +0100
@@ -1574,7 +1574,12 @@
     depth := self bitsPerPixel.
     image := (Image implementorForDepth:depth) new.
     image depth:depth.
-    image fileName:inStream pathName.
+
+    "be carefull when reading from non-fileStreams"
+    (inStream respondsTo:#fileName) ifTrue:[
+        image fileName:inStream pathName.
+    ].
+
     image 
         width:width 
         height:height
@@ -1587,6 +1592,7 @@
     ^ image
 
     "Modified: / 3.11.1997 / 14:55:00 / cg"
+    "Modified: / 15.1.1998 / 15:46:24 / stefan"
 !
 
 images
@@ -1863,5 +1869,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.55 1997-11-03 15:20:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.56 1998-01-15 15:38:11 stefan Exp $'
 ! !