# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1013778285 -3600
# Node ID 6ca23298d8886a6503d4ff5b64be34d284f5f509
# Parent  345226e6e7d2379305918d18e9a4ab9c206eb20d
care for -1 in nConsts

diff -r 345226e6e7d2 -r 6ca23298d888 SnapShotImageMemory.st
--- 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.
         ].
 !