diff -r 02601a774050 -r a88d9cf361e2 ResourcePack.st --- 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!