--- a/ChangeSet.st	Sun Aug 27 18:25:42 1995 +0200
+++ b/ChangeSet.st	Mon Aug 28 01:19:34 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.10 1995-08-11 16:00:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.11 1995-08-27 23:19:21 claus Exp $
 '!
 
 !ChangeSet class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.10 1995-08-11 16:00:57 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.11 1995-08-27 23:19:21 claus Exp $
 "
 !
 
@@ -96,5 +96,16 @@
 				   category:newCategory.
     self add:newChange
 
+!
+
+addMethodPrivacyChange:aMethod in:aClass
+    |newChange|
+
+    newChange := MethodPrivacyChange class:aClass
+				   selector:(aClass selectorAtMethod:aMethod)
+				   privacy:aMethod privacy.
+    self add:newChange
+
+    "Modified: 27.8.1995 / 22:55:22 / claus"
 ! !