--- 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