--- a/SnapShotImage.st	Fri Jul 27 18:31:31 2001 +0200
+++ b/SnapShotImage.st	Sun Jul 29 12:49:36 2001 +0200
@@ -115,7 +115,7 @@
     globals isNil ifTrue:[
         self fetchGlobals
     ].
-    ^ globals at:aKey
+    ^ globals at:aKey ifAbsent:nil
 !
 
 at:aKey ifAbsent:exceptionValue