--- a/ResourcePack.st	Thu Oct 29 14:12:23 2009 +0100
+++ b/ResourcePack.st	Thu Oct 29 14:52:02 2009 +0100
@@ -615,7 +615,12 @@
                 indirect ifTrue:[
                     value := aResourcePack string:value.
                 ].
-                value := value copy changeClassTo:ImmutableString.
+                value class == String ifTrue:[
+
+                    value := value copy changeClassTo:ImmutableString.
+                ].
+
+
                 aResourcePack at:name put:value.
             ]
         ]
@@ -1315,11 +1320,11 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.139 2009-10-29 13:12:23 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.140 2009-10-29 13:52:02 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.139 2009-10-29 13:12:23 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.140 2009-10-29 13:52:02 sr Exp $'
 ! !
 
 ResourcePack initialize!