--- a/SnapShotImage.st	Fri Feb 13 12:34:50 2004 +0100
+++ b/SnapShotImage.st	Mon Feb 16 11:25:04 2004 +0100
@@ -164,6 +164,13 @@
         self fetchGlobals
     ].
     globals keysAndValuesDo:aTwoArgBlock
+!
+
+keysDo:aTwoArgBlock
+    globals isNil ifTrue:[
+        self fetchGlobals
+    ].
+    globals keysDo:aTwoArgBlock
 ! !
 
 !SnapShotImage class methodsFor:'documentation'!