--- 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.
].
!