[VW 7.9] Exception browsing class extension

I get an exception if I try to browse an unloaded class extension.

1.       Browse an unloaded package.

2.       Select a class definition.

3.       Attempt to browse versions, get exception.

Unhandled exception: Message not understood: #environmentName

UndefinedObject(Object)>>doesNotUnderstand:

Store.Glorp.StoreClassExtension>>absoluteOwnerName

optimized [] in Store.Glorp.StoreClassExtension>>allStoreVersions

BlockClosure>>ensure:

Store.Glorp.StoreClassExtension>>allStoreVersions

optimized [] in [] in Refactory.Browser.AbstractBrowserNavigator>>storeBrowseClassVersions

optimized [] in Store.StoreProgressOverlay class>>subsumeAll:while:

BlockClosure>>ensure:

Store.StoreProgressOverlay class>>subsumeAll:while:

Store.StoreProgressOverlay class>>subsume:while:

BlockClosure>>withStoreFeedbackOn:

optimized [] in Refactory.Browser.AbstractBrowserNavigator>>storeBrowseClassVersions

Store.DBAccess>>doIfOnlineImage:

Store.Glorp.StoreForGlorpNavigator(Refactory.Browser.AbstractBrowserNavigator)>>storeBrowseClassVersions

Refactory.Browser.RBCommand>>perform:on:

Refactory.Browser.RBCommand>>performWith:

Store.Glorp.StoreForGlorpNavigator(Refactory.Browser.BrowserApplicationModel)>>performAction:

Store.Glorp.StoreForGlorpNavigator(Refactory.Browser.BrowserApplicationModel)>>action:

----------------------------------------------------------------------

UndefinedObject(Object)>>doesNotUnderstand:

Receiver:

                an UndefinedObject

Arguments:

                aMessage = a Message with selector: #environmentName and arguments: #()

Temporaries:

                excpt = a MessageNotUnderstood

                resumeValue = nil

Context PC = 25

----------------------------------------------------------------------

Store.Glorp.StoreClassExtension>>absoluteOwnerName

Receiver:

                a Store.Glorp.StoreClassExtension

Instance Variables:

                organization = ('testing' #isAssociation)

                classDefinition = nil

                classMethods = an IdentitySet[0]

                name = 'Association'

                longName = 'Root.Smalltalk.Core.Association'

                package = StorePackage(MiosoftCollectionExtensionsFramework,11.5.0.1.1)

                instanceMethods = an IdentitySet[1]

                metaclass = nil

                sharedVariables = an IdentitySet[0]

Context PC = 3

----------------------------------------------------------------------

optimized [] in Store.Glorp.StoreClassExtension>>allStoreVersions

Receiver:

                an UndefinedObject

Temporaries:

                .self = Association

Context PC = 17

----------------------------------------------------------------------

BlockClosure>>ensure:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Store.Glorp.StoreClassExtension>>allStoreVersions

                outerContext = nil

                copiedValues = Association

Arguments:

                aBlock = BlockClosure [] in Store.Glorp.StoreClassExtension>>allStoreVersions

Temporaries:

                result = nil

Context PC = 4

----------------------------------------------------------------------

Store.Glorp.StoreClassExtension>>allStoreVersions

Receiver:

                a Store.Glorp.StoreClassExtension

Instance Variables:

                organization = ('testing' #isAssociation)

                classDefinition = nil

                classMethods = an IdentitySet[0]

                name = 'Association'

                longName = 'Root.Smalltalk.Core.Association'

                package = StorePackage(MiosoftCollectionExtensionsFramework,11.5.0.1.1)

                instanceMethods = an IdentitySet[1]

                metaclass = nil

                sharedVariables = an IdentitySet[0]

Context PC = 11

----------------------------------------------------------------------

optimized [] in [] in Refactory.Browser.AbstractBrowserNavigator>>storeBrowseClassVersions

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.Glorp.StoreForGlorpNavigator

Context PC = 10

Terry

===========================================================

Terry Raymond

Crafted Smalltalk

80 Lazywood Ln.

Tiverton, RI  02878

(401) 624-4517      [hidden email]

===========================================================