--- a/STFormRdr.st	Tue Feb 03 17:58:02 1998 +0100
+++ b/STFormRdr.st	Tue Feb 03 18:00:06 1998 +0100
@@ -114,15 +114,13 @@
         ^ nil
     ].
     code ~~ 1 ifTrue:[
-        'ST80FormReader [warning]: expected magic 1' errorPrintCR.
-        ^ nil
+        ^ self fileFormatError:'expected magic 1'.
     ].
 
     width := aStream nextWord.
     height := aStream nextWord.
     ((width == 0) or:[height == 0]) ifTrue:[
-        'ST80FormReader [warning]: zero width/height' errorPrintCR.
-        ^ nil
+        ^ self fileFormatError:'zero width/height'.
     ].
     offsetX := aStream nextWord.
     offsetY := aStream nextWord.
@@ -137,7 +135,7 @@
 
     "ST80FormReader fromFile:''"
 
-    "Modified: 21.4.1997 / 19:47:43 / cg"
+    "Modified: / 3.2.1998 / 17:59:50 / cg"
 ! !
 
 !ST80FormReader methodsFor:'writing to file'!
@@ -190,6 +188,6 @@
 !ST80FormReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.19 1997-06-30 20:56:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/STFormRdr.st,v 1.20 1998-02-03 17:00:06 cg Exp $'
 ! !
 ST80FormReader initialize!