--- a/FileStream.st	Wed Jun 19 14:19:21 2002 +0200
+++ b/FileStream.st	Fri Jun 21 10:54:56 2002 +0200
@@ -462,6 +462,17 @@
     ^ newStream
 ! !
 
+!FileStream class methodsFor:'Compatibility - ANSI'!
+
+write:filename
+    "return a FileStream for new file named filename, aString.
+     If the file exists, it is truncated, otherwise created.
+     The file is opened for read/write access.
+     Same as newFileNamed: for ANSI compatibilily"
+
+    ^ self newFileNamed:filename
+! !
+
 !FileStream class methodsFor:'Compatibility - Dolphin'!
 
 read:filename text:text
@@ -1350,6 +1361,6 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.86 2002-04-09 14:49:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.87 2002-06-21 08:54:56 penk Exp $'
 ! !
 FileStream initialize!