*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 29 Jul 2001 12:49:36 +0200
changeset 1476 b6b941f16e63
parent 1475 b2191c13ed37
child 1477 f48e0d932956
*** empty log message ***
SnapShotImage.st
--- 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