--- a/FileURI.st	Tue Feb 01 13:41:37 2005 +0100
+++ b/FileURI.st	Tue Feb 01 13:42:02 2005 +0100
@@ -134,7 +134,7 @@
 
     attributes := self class attributes.
     file := self asFilename.
-    attributes at:#fileSize put:(file fileSize).
+    attributes at:#fileSize put:file fileSize.
     attributes at:#baseName put:file baseName.  
     attributes at:#uriInfo  put:self printString.  
 
@@ -146,6 +146,12 @@
      ].
 
     "
+     '/etc/group' asURI readStreamDo:[:stream :attributes|
+        stream contents         
+                addFirst:attributes printString; 
+                yourself
+     ].
+
      'file:/etc/group' asURI readStreamDo:[:stream :attributes|
         stream contents         
                 addFirst:attributes printString; 
@@ -341,5 +347,5 @@
 !FileURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.13 2004-03-20 15:45:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.14 2005-02-01 12:42:02 stefan Exp $'
 ! !