--- a/extensions.st	Fri Apr 10 08:55:43 2015 +0200
+++ b/extensions.st	Wed Apr 22 19:51:23 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libbasic2' }"!
 
 !CharacterArray methodsFor:'matching - phonetic'!
@@ -18,26 +20,26 @@
 
     "
      #(
-	'Müller'
+	'Müller'
 	'Miller'
 	'Mueller'
-	'Mühler'
-	'Mühlherr'
-	'Mülherr'
+	'Mühler'
+	'Mühlherr'
+	'Mülherr'
 	'Myler'
 	'Millar'
 	'Myller'
-	'Müllar'
-	'Müler'
+	'Müllar'
+	'Müler'
 	'Muehler'
-	'Mülller'
-	'Müllerr'
+	'Mülller'
+	'Müllerr'
 	'Muehlherr'
 	'Muellar'
 	'Mueler'
-	'Mülleer'
+	'Mülleer'
 	'Mueller'
-	'Nüller'
+	'Nüller'
 	'Nyller'
 	'Niler'
 	'Czerny'
@@ -63,7 +65,7 @@
      'Braeschneff' asKoelnerPhoneticCode -> '17863'
      'Braessneff' asKoelnerPhoneticCode -> '17863'
      'Pressneff' asKoelnerPhoneticCode -> '17863'
-     'Presznäph' asKoelnerPhoneticCode -> '17863'
+     'Presznäph' asKoelnerPhoneticCode -> '17863'
     "
 ! !
 
@@ -109,7 +111,7 @@
 
     |aStream|
 
-    aStream := WriteStream on:String new.
+    aStream := CharacterWriteStream on:(self species uninitializedNew:self size).
     self printf:args on:aStream.
     ^ aStream contents
 
@@ -1276,6 +1278,6 @@
 !stx_libbasic2 class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.29 2014-05-07 14:48:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.30 2015-04-22 17:51:23 stefan Exp $'
 ! !