--- a/ST80FormReader.st	Fri Feb 25 14:11:30 1994 +0100
+++ b/ST80FormReader.st	Fri Jun 03 02:54:11 1994 +0200
@@ -18,15 +18,37 @@
 !
 
 ST80FormReader comment:'
+COPYRIGHT (c) 1993 by Claus Gittinger
+              All Rights Reserved
+'!
 
-COPYRIGHT (c) 1993 by Claus Gittinger
+!ST80FormReader class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
 
-this class provides methods for loading and saving st80-bitmap-file images.
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
 
-$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.2 1994-01-08 17:16:00 claus Exp $
-written Nov 93 by claus
-'!
+version
+"
+$Header: /cvs/stx/stx/libview2/ST80FormReader.st,v 1.3 1994-06-03 00:53:35 claus Exp $
+"
+!
+
+documentation
+"
+    this class provides methods for loading and saving st80-bitmap-file images.
+"
+! !
 
 !ST80FormReader methodsFor:'writing to file'!
 
@@ -74,7 +96,7 @@
 
     |code inStream|
 
-    inStream := FileStream readonlyFileNamed:aFileName.
+    inStream := self streamReadingFile:aFileName.
     inStream isNil ifTrue:[^ false].
 
     inStream binary.
@@ -92,7 +114,7 @@
 fromFile:aFileName
     |nBytes code offsetX offsetY|
 
-    inStream := FileStream readonlyFileNamed:aFileName.
+    inStream := self class streamReadingFile:aFileName.
     inStream isNil ifTrue:[
         'open error' printNewline.
         ^ nil