--- a/CCReader.st	Thu Dec 07 22:24:46 1995 +0100
+++ b/CCReader.st	Thu Dec 07 22:32:39 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#ClassCategoryReader
-       instanceVariableNames:'myClass myCategory privacy ignore primSpec'
-       classVariableNames:'KeepSource'
-       poolDictionaries:''
-       category:'Kernel-Support'
+	 instanceVariableNames:'myClass myCategory privacy ignore primSpec'
+	 classVariableNames:'KeepSource'
+	 poolDictionaries:''
+	 category:'Kernel-Support'
 !
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.22 1995-11-11 14:27:31 cg Exp $'
-!
-
 documentation
 "
     a helper class for fileIn - keeps track of class and category to filein for.
@@ -51,20 +47,6 @@
     KeepSource := true
 ! !
 
-!ClassCategoryReader class methodsFor:'defaults'!
-
-keepSource:aBoolean
-    KeepSource := aBoolean
-
-    "Created: 9.9.1995 / 15:22:26 / claus"
-!
-
-keepSource
-    ^ KeepSource
-
-    "Created: 9.9.1995 / 15:22:27 / claus"
-! !
-
 !ClassCategoryReader class methodsFor:'instance creation'!
 
 class:aClass category:aCategory
@@ -86,40 +68,29 @@
     ^ self new ignoreMethods
 ! !
 
-!ClassCategoryReader methodsFor:'private'!
+!ClassCategoryReader class methodsFor:'defaults'!
 
-class:aClass category:aCategory
-    "set the instance variables"
+keepSource
+    ^ KeepSource
 
-    myClass := aClass.
-    myCategory := aCategory.
-    ignore := false
+    "Created: 9.9.1995 / 15:22:27 / claus"
 !
 
-class:aClass primitiveSpec:which
-    "set the instance variables"
-
-    myClass := aClass.
-    primSpec := which.
-    ignore := false
-! !
-
-!ClassCategoryReader methodsFor:'special'!
+keepSource:aBoolean
+    KeepSource := aBoolean
 
-privateProtocol
-    privacy := #private
-! 
-
-protectedProtocol
-    privacy := #protected
-! 
-
-ignoreMethods 
-    ignore := true
+    "Created: 9.9.1995 / 15:22:26 / claus"
 ! !
 
 !ClassCategoryReader methodsFor:'fileIn'!
 
+fileInFrom:aStream
+    "read method-chunks from the input stream, aStream; compile them
+     and add the methods to the class defined by the class-instance var"
+
+    self fileInFrom:aStream notifying:nil passChunk:false
+!
+
 fileInFrom:aStream notifying:requestor passChunk:passChunk
     "read method-chunks from the input stream, aStream; compile them
      and add the methods to the class defined by the class-instance var;
@@ -216,11 +187,43 @@
     ]
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
+! !
+
+!ClassCategoryReader methodsFor:'private'!
+
+class:aClass category:aCategory
+    "set the instance variables"
+
+    myClass := aClass.
+    myCategory := aCategory.
+    ignore := false
 !
 
-fileInFrom:aStream
-    "read method-chunks from the input stream, aStream; compile them
-     and add the methods to the class defined by the class-instance var"
+class:aClass primitiveSpec:which
+    "set the instance variables"
+
+    myClass := aClass.
+    primSpec := which.
+    ignore := false
+! !
+
+!ClassCategoryReader methodsFor:'special'!
+
+ignoreMethods 
+    ignore := true
+!
 
-    self fileInFrom:aStream notifying:nil passChunk:false
+privateProtocol
+    privacy := #private
+!
+
+protectedProtocol
+    privacy := #protected
 ! !
+
+!ClassCategoryReader class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.23 1995-12-07 21:31:11 cg Exp $'
+! !
+ClassCategoryReader initialize!