--- a/FileStream.st	Tue Aug 31 11:23:49 2010 +0200
+++ b/FileStream.st	Tue Aug 31 20:05:23 2010 +0200
@@ -1677,6 +1677,10 @@
     ^ self primitiveFailed
 !
 
+isDirectory
+    ^ OperatingSystem isDirectory:pathName
+!
+
 size
     "common stream protocol: return the size of the stream;
      thats the number of bytes of the file."
@@ -1706,11 +1710,11 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.143 2010-07-18 21:16:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.144 2010-08-31 18:05:23 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.143 2010-07-18 21:16:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.144 2010-08-31 18:05:23 stefan Exp $'
 ! !
 
 FileStream initialize!