--- a/Filename.st	Mon Jun 28 10:28:44 1999 +0200
+++ b/Filename.st	Mon Jun 28 21:59:38 1999 +0200
@@ -1353,7 +1353,13 @@
 
     |inStream outStream buffer bufferSize count newFile|
 
-    bufferSize := 16 * 1024.
+    OperatingSystem isMSDOSlike ifTrue:[
+        "/ mhmh - NT hangs, when copying bigger blocks to a network drive - why ?
+        bufferSize := 1 * 1024.
+    ] ifFalse:[
+        bufferSize := 8 * 1024.
+    ].
+
     buffer := ByteArray new:bufferSize.
     inStream := self readStream.
     inStream isNil ifTrue:[
@@ -1381,7 +1387,7 @@
      'smalltalk' asFilename copyTo:'/dev/null'
     "
 
-    "Modified: / 31.5.1999 / 13:09:13 / cg"
+    "Modified: / 28.6.1999 / 21:54:11 / cg"
 !
 
 delete
@@ -3286,6 +3292,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.157 1999-06-28 08:28:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.158 1999-06-28 19:59:38 cg Exp $'
 ! !
 Filename initialize!