--- a/SnapShotImage.st Thu Aug 22 19:03:11 2002 +0200 +++ b/SnapShotImage.st Fri Aug 23 10:56:14 2002 +0200 @@ -155,6 +155,10 @@ ^ nil ! +hasNamespaces + ^ true +! + keysAndValuesDo:aTwoArgBlock globals isNil ifTrue:[ self fetchGlobals