--- a/FileStream.st	Fri Apr 13 00:04:07 2012 +0100
+++ b/FileStream.st	Fri Apr 13 14:18:13 2012 +0100
@@ -995,7 +995,7 @@
     "Modified: 30.7.1997 / 16:43:50 / cg"
 ! !
 
-!FileStream protectedMethodsFor:'private'!
+!FileStream methodsFor:'private'!
 
 closeFile
     "low level close - may be redefined in subclasses.
@@ -1007,9 +1007,7 @@
     ]
 
     "Created: / 13.8.1998 / 12:11:22 / cg"
-! !
-
-!FileStream methodsFor:'private'!
+!
 
 createForReadWrite
     "create/truncate the file for read/write.
@@ -1676,6 +1674,12 @@
     ^ OperatingSystem isDirectory:pathName
 !
 
+isEmpty
+    "common stream protocol: are there no bytes in the file?"
+
+    ^ self fileSize == 0.
+!
+
 size
     "common stream protocol: return the size of the stream;
      thats the number of bytes of the file."
@@ -1705,18 +1709,15 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.145 2011/10/07 13:57:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.146 2012/04/05 09:59:44 stefan Exp $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.145 2011/10/07 13:57:55 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.146 2012/04/05 09:59:44 stefan Exp §'
 !
 
 version_SVN
-    ^ '$Id: FileStream.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: FileStream.st 10804 2012-04-13 13:18:13Z vranyj1 $'
 ! !
 
 FileStream initialize!
-
-
-