--- a/BTree.st	Sat Oct 01 20:37:52 2016 +0200
+++ b/BTree.st	Sat Oct 01 20:40:41 2016 +0200
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Collection subclass:#BTree
 	instanceVariableNames:'root'
 	classVariableNames:''
@@ -840,7 +844,7 @@
 
 extractPrefixFrom: readStreams
         | prefixStream nextChars |
-        prefixStream _ String new writeStream.
+        prefixStream := '' writeStream.
         
         [readStreams anySatisfy: [:ea | ea atEnd]] whileFalse:
                 [nextChars _ readStreams collect: [:ea | ea next].
@@ -894,6 +898,6 @@
 !BTree class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/BTree.st,v 1.15 2013-09-05 23:15:11 cg Exp $'
+    ^ '$Header$'
 ! !