Re: CurrentContext in description defaults

loading the latest Pier-Model I get Keith --- 14 September 2007 2:21:37 am VM: Win32 - a SmalltalkImage Image: Squeak3.10beta [latest update: #7137] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir D:\Squeak\ws Trusted Dir D:\Squeak\ws\administrator Untrusted Dir C:\My Squeak\administrator PRCompatibility class(Object)>>doesNotUnderstand: #allSubInstancesOf:do: Receiver: PRCompatibility Arguments and temporary variables: aMessage: allSubInstancesOf: PRLink do: [] in PRMigrations class>>migrateLinkPa...etc... Receiver's instance variables: superclass: MACompatibility methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PRCompatibility classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Pier-Model-Core' traitComposition: {} localSelectors: nil PRMigrations class>>migrateLinkParameters Receiver: PRMigrations Arguments and temporary variables: each: nil Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PRMigrations classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Pier-Model-Core' traitComposition: {} localSelectors: nil PRMigrations class>>initialize Receiver: PRMigrations Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PRMigrations classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Pier-Model-Core' traitComposition: {} localSelectors: nil MCMethodInitializerDefinition>>postinstall Receiver: a MCMethodInitializerDefinition(PRMigrations class>>initialize{initialization}) Arguments and temporary variables: Receiver's instance variables: classIsMeta: true source: 'initialize self migrateLinkParameters' category: #initialization selector: #initialize className: #PRMigrations timeStamp: 'lr 8/27/2007 10:19' methodAndNode: a CompiledMethodWithNode requestor: nil compiledMethod: a CompiledMethod (3848) priorMethodOrNil: nil compiledSelector: #initialize properties: an IdentityDictionary() isInstalled: nil priorMethodCategory: nil theClass: PRMigrations class defnToInstall: a MCMethodInitializerDefinition(PRMigrations class>>initialize{i...etc...