--- a/SnapShotImageMemory.st	Mon Feb 16 11:25:04 2004 +0100
+++ b/SnapShotImageMemory.st	Mon Feb 16 12:00:38 2004 +0100
@@ -1613,6 +1613,10 @@
         self isMeta ifTrue:[
             cachedName := self theNonMetaclass name , ' class'
         ] ifFalse:[
+            self isPrivateMeta ifTrue:[
+self halt.
+            ].
+
             nameRef := self nameSlot.
             nameRef isInteger ifTrue:[
                 nameRef := memory fetchObjectAt:nameRef.
@@ -2122,10 +2126,10 @@
 fileOutAllMethodsOn:aStream methodFilter:methodFilter
     |collectionOfCategories|
 
-    collectionOfCategories := self class categories asSortedCollection.
+    collectionOfCategories := self theMetaclass categories asSortedCollection.
     collectionOfCategories notNil ifTrue:[
         collectionOfCategories do:[:aCategory |
-            self class fileOutCategory:aCategory methodFilter:methodFilter on:aStream.
+            self theMetaclass fileOutCategory:aCategory methodFilter:methodFilter on:aStream.
             aStream cr
         ]
     ].
@@ -3952,8 +3956,13 @@
 !
 
 isMeta
-    ^ self size == (Metaclass instSize).
-"/    ^ classRef classRef name = 'Metaclass'
+    |clsName|
+
+    clsName := classRef name.
+    ^ clsName = 'Metaclass' or:[clsName = 'PrivateMetaclass'].
+
+"/self halt.
+"/    ^ self size == (Metaclass instSize).
 !
 
 isNameSpace