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