--- a/ClassCategoryReader.st	Wed Mar 16 10:40:51 1994 +0100
+++ b/ClassCategoryReader.st	Wed Mar 30 11:38:21 1994 +0200
@@ -11,7 +11,7 @@
 "
 
 Object subclass:#ClassCategoryReader
-       instanceVariableNames:'myClass myCategory'
+       instanceVariableNames:'myClass myCategory myPrivacy'
        classVariableNames:''
        poolDictionaries:''
        category:'Kernel-Support'
@@ -24,7 +24,7 @@
 
 a helper class for fileIn - keeps track of class and category to filein for.
 
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.6 1993-12-11 00:44:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.7 1994-03-30 09:30:13 claus Exp $
 written 89 by claus
 '!
 
@@ -43,7 +43,14 @@
     "set the instance variables"
 
     myClass := aClass.
-    myCategory := aCategory
+    myCategory := aCategory.
+    myPrivacy := false
+! !
+
+!ClassCategoryReader methodsFor:'special'!
+
+privateProtocol
+    myPrivacy := true
 ! !
 
 !ClassCategoryReader methodsFor:'fileIn'!
@@ -67,7 +74,10 @@
                                         inCategory:myCategory
                                          notifying:requestor
                                            install:true
-                                        skipIfSame:true
+                                        skipIfSame:true.
+		myPrivacy ifTrue:[
+		    method private:true
+		]
             ]
         ]
     ]