--- a/Filename.st	Mon Aug 24 16:18:40 2009 +0200
+++ b/Filename.st	Mon Aug 24 21:28:48 2009 +0200
@@ -5666,6 +5666,9 @@
                 aStringOrCollectionOfLines do:[:each | s nextPutLine:(each ? '')]
             ] ifFalse:[
                 "something string-like"
+                aStringOrCollectionOfLines isString ifFalse:[
+                    s binary
+                ].
                 s nextPutAll:aStringOrCollectionOfLines
             ]
         ].
@@ -5708,7 +5711,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.342 2009-06-22 21:56:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.343 2009-08-24 19:28:48 cg Exp $'
 ! !
 
 Filename initialize!