--- a/ImageRdr.st	Thu Apr 10 17:45:37 1997 +0200
+++ b/ImageRdr.st	Thu Apr 10 17:46:29 1997 +0200
@@ -1396,6 +1396,8 @@
     "save the image in my format on aFileName"
 
     ^ (self basicNew) save:anImage onFile:aFileName
+
+    "Modified: 10.4.1997 / 17:42:57 / cg"
 ! !
 
 !ImageReader class methodsFor:'testing'!
@@ -1731,7 +1733,11 @@
 save:image onFile:aFileName
     "save image in my format on aFile"
 
-    ^ self subclassResponsibility
+    ^ Image cannotRepresentImageSignal 
+        raiseWith:image
+        errorString:('image save not implemented for this format').
+
+    "Modified: 10.4.1997 / 17:43:52 / cg"
 ! !
 
 !ImageReader methodsFor:'initialization'!
@@ -1744,5 +1750,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/ImageRdr.st,v 1.42 1997-04-04 20:13:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ImageRdr.st,v 1.43 1997-04-10 15:46:29 cg Exp $'
 ! !

--- a/ImageReader.st	Thu Apr 10 17:45:37 1997 +0200
+++ b/ImageReader.st	Thu Apr 10 17:46:29 1997 +0200
@@ -1396,6 +1396,8 @@
     "save the image in my format on aFileName"
 
     ^ (self basicNew) save:anImage onFile:aFileName
+
+    "Modified: 10.4.1997 / 17:42:57 / cg"
 ! !
 
 !ImageReader class methodsFor:'testing'!
@@ -1731,7 +1733,11 @@
 save:image onFile:aFileName
     "save image in my format on aFile"
 
-    ^ self subclassResponsibility
+    ^ Image cannotRepresentImageSignal 
+        raiseWith:image
+        errorString:('image save not implemented for this format').
+
+    "Modified: 10.4.1997 / 17:43:52 / cg"
 ! !
 
 !ImageReader methodsFor:'initialization'!
@@ -1744,5 +1750,5 @@
 !ImageReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.42 1997-04-04 20:13:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ImageReader.st,v 1.43 1997-04-10 15:46:29 cg Exp $'
 ! !