--- a/CCReader.st	Fri Feb 14 02:19:16 1997 +0100
+++ b/CCReader.st	Fri Feb 14 18:28:58 1997 +0100
@@ -12,7 +12,7 @@
 
 Object subclass:#ClassCategoryReader
 	instanceVariableNames:'myClass myCategory privacy ignore primSpec'
-	classVariableNames:'KeepSource SourceMode'
+	classVariableNames:'KeepSource SourceMode SkipUnchangedMethods'
 	poolDictionaries:''
 	category:'Kernel-Support'
 !
@@ -75,12 +75,13 @@
 initialize
     KeepSource := true.
     SourceMode := #keep.
+    SkipUnchangedMethods := true.
 
     "
      ClassCategoryReader initialize
     "
 
-    "Modified: 9.2.1996 / 17:22:57 / cg"
+    "Modified: 14.2.1997 / 18:26:52 / cg"
 ! !
 
 !ClassCategoryReader class methodsFor:'instance creation'!
@@ -114,6 +115,27 @@
     "Modified: 9.2.1996 / 17:23:04 / cg"
 !
 
+skipUnchangedMethods
+    "return true, if the default for unchanged methods is to skip them.
+     The default is true."
+
+    ^ SkipUnchangedMethods
+
+    "Created: 14.2.1997 / 18:27:49 / cg"
+    "Modified: 14.2.1997 / 18:28:13 / cg"
+!
+
+skipUnchangedMethods:aBoolean
+    "return true, if the default for unchanged methods is to skip them.
+     The default is true. Can be temporarily changed to false, if
+     a forced fileIn is required."
+
+    SkipUnchangedMethods := aBoolean
+
+    "Created: 14.2.1997 / 18:27:43 / cg"
+    "Modified: 14.2.1997 / 18:28:42 / cg"
+!
+
 sourceMode 
     "return the sourceMode, which controls how sources are to be handled.
      Read #documentation for more info"
@@ -256,7 +278,7 @@
                                      inCategory:myCategory
                                      notifying:requestor
                                      install:true
-                                     skipIfSame:true.
+                                     skipIfSame:SkipUnchangedMethods.
 
                         (method notNil and:[method ~~ #Error]) ifTrue:[
                             canMakeSourceRef ifTrue:[
@@ -308,7 +330,7 @@
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
     "Created: 5.9.1996 / 17:45:45 / cg"
-    "Modified: 5.1.1997 / 03:02:05 / cg"
+    "Modified: 14.2.1997 / 18:27:15 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -348,6 +370,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.33 1997-01-05 02:11:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.34 1997-02-14 17:28:58 cg Exp $'
 ! !
 ClassCategoryReader initialize!

--- a/ClassCategoryReader.st	Fri Feb 14 02:19:16 1997 +0100
+++ b/ClassCategoryReader.st	Fri Feb 14 18:28:58 1997 +0100
@@ -12,7 +12,7 @@
 
 Object subclass:#ClassCategoryReader
 	instanceVariableNames:'myClass myCategory privacy ignore primSpec'
-	classVariableNames:'KeepSource SourceMode'
+	classVariableNames:'KeepSource SourceMode SkipUnchangedMethods'
 	poolDictionaries:''
 	category:'Kernel-Support'
 !
@@ -75,12 +75,13 @@
 initialize
     KeepSource := true.
     SourceMode := #keep.
+    SkipUnchangedMethods := true.
 
     "
      ClassCategoryReader initialize
     "
 
-    "Modified: 9.2.1996 / 17:22:57 / cg"
+    "Modified: 14.2.1997 / 18:26:52 / cg"
 ! !
 
 !ClassCategoryReader class methodsFor:'instance creation'!
@@ -114,6 +115,27 @@
     "Modified: 9.2.1996 / 17:23:04 / cg"
 !
 
+skipUnchangedMethods
+    "return true, if the default for unchanged methods is to skip them.
+     The default is true."
+
+    ^ SkipUnchangedMethods
+
+    "Created: 14.2.1997 / 18:27:49 / cg"
+    "Modified: 14.2.1997 / 18:28:13 / cg"
+!
+
+skipUnchangedMethods:aBoolean
+    "return true, if the default for unchanged methods is to skip them.
+     The default is true. Can be temporarily changed to false, if
+     a forced fileIn is required."
+
+    SkipUnchangedMethods := aBoolean
+
+    "Created: 14.2.1997 / 18:27:43 / cg"
+    "Modified: 14.2.1997 / 18:28:42 / cg"
+!
+
 sourceMode 
     "return the sourceMode, which controls how sources are to be handled.
      Read #documentation for more info"
@@ -256,7 +278,7 @@
                                      inCategory:myCategory
                                      notifying:requestor
                                      install:true
-                                     skipIfSame:true.
+                                     skipIfSame:SkipUnchangedMethods.
 
                         (method notNil and:[method ~~ #Error]) ifTrue:[
                             canMakeSourceRef ifTrue:[
@@ -308,7 +330,7 @@
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
     "Created: 5.9.1996 / 17:45:45 / cg"
-    "Modified: 5.1.1997 / 03:02:05 / cg"
+    "Modified: 14.2.1997 / 18:27:15 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -348,6 +370,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.33 1997-01-05 02:11:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.34 1997-02-14 17:28:58 cg Exp $'
 ! !
 ClassCategoryReader initialize!