--- a/ResourcePack.st	Wed Oct 29 18:46:21 2008 +0100
+++ b/ResourcePack.st	Thu Oct 30 16:51:48 2008 +0100
@@ -932,13 +932,18 @@
 string:s withArgs:argArray
     "translate and expand args - allow text as arguments"
 
-    |template stream|
+    |template|
 
     template := self at:s ifAbsent:s.
+    ^ template expandPlaceholdersWith:argArray.
 
-    stream := TextStream on:(template species new:template size + 20).
-    template expandPlaceholdersWith:argArray on:stream.
-    ^ stream contents.
+
+
+
+
+
+
+
 !
 
 stringWithCRs:s
@@ -1316,7 +1321,7 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.131 2008-05-29 13:26:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.132 2008-10-30 15:51:48 cg Exp $'
 ! !
 
 ResourcePack initialize!