--- a/ResourcePack.st	Thu Oct 30 16:51:48 2008 +0100
+++ b/ResourcePack.st	Thu Oct 30 16:52:36 2008 +0100
@@ -886,12 +886,10 @@
 string:s default:defaultString withArgs:argArray
     "translate and expand args"
 
-    |template stream|
+    |template|
 
     template := self at:s ifAbsent:defaultString.
-    stream := TextStream on:(template species new:template size + 20).
-    template expandPlaceholdersWith:argArray on:stream.
-    ^ stream contents.
+    ^ template expandPlaceholdersWith:argArray.
 !
 
 string:s with:arg
@@ -1012,14 +1010,10 @@
      CR-replacement is done before args are inserted 
      i.e. if any arg contains a backslash (DOS filenames), those are not translated."
 
-    |template stream|
+    |template|
 
     template := self at:s ifAbsent:s.
-    stream := TextStream on:(template species new:template size + 20).
-    template withCRs expandPlaceholdersWith:argArray on:stream.
-    ^ stream contents.
-
-    "Modified: / 21.3.2003 / 14:21:59 / cg"
+    ^ template withCRs expandPlaceholdersWith:argArray.
 ! !
 
 !ResourcePack methodsFor:'accessing-internals'!
@@ -1321,7 +1315,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.132 2008-10-30 15:51:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.133 2008-10-30 15:52:36 cg Exp $'
 ! !
 
 ResourcePack initialize!