--- a/ClassCategoryReader.st	Fri Jun 12 10:11:09 2009 +0200
+++ b/ClassCategoryReader.st	Fri Jun 12 12:00:35 2009 +0200
@@ -13,7 +13,7 @@
 
 Object subclass:#ClassCategoryReader
 	instanceVariableNames:'myClass myCategory privacy ignore primSpec'
-	classVariableNames:'KeepSource SourceMode SkipUnchangedMethods'
+	classVariableNames:'SourceMode SkipUnchangedMethods'
 	poolDictionaries:''
 	category:'Kernel-Support'
 !
@@ -81,7 +81,6 @@
 !ClassCategoryReader class methodsFor:'initialization'!
 
 initialize
-    KeepSource := true.
     SourceMode := #keep.
     SkipUnchangedMethods := true.
 
@@ -116,13 +115,12 @@
 !ClassCategoryReader class methodsFor:'defaults'!
 
 keepSource
-    ^ KeepSource
+    ^ SourceMode == #keep
 
     "Created: 9.9.1995 / 15:22:27 / claus"
 !
 
 keepSource:aBoolean
-    KeepSource := aBoolean.
     SourceMode := (aBoolean ifTrue:[#keep] ifFalse:[#reference])
 
     "Created: 9.9.1995 / 15:22:26 / claus"
@@ -436,7 +434,7 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.51 2007-02-20 08:20:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.52 2009-06-12 10:00:35 stefan Exp $'
 ! !
 
 ClassCategoryReader initialize!