--- a/ResourcePack.st	Wed Nov 04 15:32:20 2009 +0100
+++ b/ResourcePack.st	Thu Nov 05 14:13:28 2009 +0100
@@ -615,11 +615,11 @@
                 indirect ifTrue:[
                     value := aResourcePack string:value.
                 ].
-                value class == String ifTrue:[
 
-                    value := value copy changeClassTo:ImmutableString.
-                ].
-
+                "/ for debugging only !! (not all primitive code is ready for immutableStrings)
+                "/ value class == String ifTrue:[
+                "/     value := value copy changeClassTo:ImmutableString.
+                "/ ].
 
                 aResourcePack at:name put:value.
             ]
@@ -1320,11 +1320,11 @@
 !ResourcePack class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.140 2009-10-29 13:52:02 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.141 2009-11-05 13:13:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.140 2009-10-29 13:52:02 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ResourcePack.st,v 1.141 2009-11-05 13:13:28 cg Exp $'
 ! !
 
 ResourcePack initialize!