--- a/Class.st	Wed Mar 03 20:37:50 1999 +0100
+++ b/Class.st	Wed Mar 03 22:31:49 1999 +0100
@@ -1277,7 +1277,7 @@
      However, the superclass chain is not stored - at load time, that must
      be either present or autoloadable."
 
-    |s sig owner privateClasses|
+    |s sig owner privateClasses nPrivate|
 
     stream nextPut: manager codeForClass.
 
@@ -1376,8 +1376,8 @@
     "/ names of private classes
     "/
     privateClasses := self privateClassesSorted.
-    privateClasses size storeBinaryOn:stream manager:manager.
-    privateClasses size > 0 ifTrue:[
+    (nPrivate := privateClasses size) storeBinaryOn:stream manager:manager.
+    nPrivate > 0 ifTrue:[
         privateClasses do:[:aClass |
             aClass storeBinaryClassOn:stream manager:manager
         ]
@@ -3907,5 +3907,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.330 1999-03-03 19:37:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.331 1999-03-03 21:31:49 cg Exp $'
 ! !