I'd say that it looks like a "bug ward". But I think the system should not contain right now classpools with string keys. They should all be symbols.
(Smalltalk allClasses gather: [ :class | class classPool keys ]) select: [ :k | k isSymbol not ] should be an empty collection. So you probably can replace those three lines by: manager := Instance. ? Guille El mié., 27 de may. de 2015 a la(s) 9:46 a. m., Christophe Demarey < christophe.dema...@inria.fr> escribió: > hi, > > Does anyone knows if there is a particular reason to write this kind of > code (snippet from RBRefactoringTest>>setUp > > assoc := RBRefactoringManager classPool associationAt: #Instance > ifAbsent: [RBRefactoringManager classPool > associationAt: 'Instance']. > manager := assoc value. > > Thanks, > Christophe >