--- a/SnapShotImageMemory.st	Fri Dec 14 18:24:08 2001 +0100
+++ b/SnapShotImageMemory.st	Fri Feb 15 14:04:45 2002 +0100
@@ -667,9 +667,10 @@
             nLitRefs timesRepeat:[ stream nextUnsignedLongMSB:msb ].
             stream nextUnsignedLongMSB:msb. "/ 0-litRef
             oldConstTable := stream nextUnsignedLongMSB:msb.  
-            nConsts := stream nextUnsignedLongMSB:msb.
-            nConsts timesRepeat:[ stream nextUnsignedLongMSB:msb ].
-
+            nConsts := stream nextLongMSB:msb.
+            nConsts > 0 ifTrue:[
+                nConsts timesRepeat:[ stream nextUnsignedLongMSB:msb ].
+            ]
             "/ Transcript showCR:className.
         ].
 !