--- a/CharacterEncoder.st Wed Oct 12 07:05:13 2016 +0200
+++ b/CharacterEncoder.st Tue Oct 25 12:31:42 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2004 by eXept Software AG
All Rights Reserved
@@ -1133,7 +1131,7 @@
s := aFilename asFilename readStreamOrNil.
s isNil ifTrue:[^ nil].
- buffer := String new:64.
+ buffer := String new:512.
n := s nextBytes:buffer size into:buffer.
s close.
@@ -1158,7 +1156,10 @@
|oldPosition buffer n|
- buffer := String new:64.
+ "/ must be able to position back
+ aStream isPositionable ifFalse:[^ nil].
+
+ buffer := String new:512.
oldPosition := aStream position.
n := aStream nextBytes:buffer size into:buffer.