--- a/Class.st	Sun Aug 27 16:27:20 1995 +0200
+++ b/Class.st	Mon Aug 28 01:21:07 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.56 1995-08-27 01:35:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.57 1995-08-27 23:20:08 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.56 1995-08-27 01:35:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.57 1995-08-27 23:20:08 claus Exp $
 "
 !
 
@@ -1106,6 +1106,23 @@
     ]
 !
 
+addChangeRecordForMethodPrivacy:aMethod to:aStream
+    "append a method-privacy-change-record to aStream"
+
+    |selector|
+
+    selector := aMethod selector.
+    selector notNil ifTrue:[
+	aStream nextPutAll:'('.
+	self printClassNameOn:aStream.
+	aStream nextPutAll:(' compiledMethodAt:' , selector storeString).
+	aStream nextPutAll:(') privacy:' , aMethod privacy storeString).
+	aStream nextPut:(aStream class chunkSeparator).
+    ]
+
+    "Modified: 27.8.1995 / 22:59:56 / claus"
+!
+
 addChangeRecordForClass:aClass to:aStream
     "append a class-definition-record to aStream"
 
@@ -1237,6 +1254,20 @@
     ]
 !
 
+addChangeRecordForMethodPrivacy:aMethod
+    "add a method-privacy-change-record to the changes file"
+
+    UpdatingChanges ifTrue:[
+	self writingChangePerform:#addChangeRecordForMethodPrivacy:to: with:aMethod.
+	"this test allows a smalltalk without Projects/ChangeSets"
+	Project notNil ifTrue:[
+	    Project addMethodPrivacyChange:aMethod in:self
+	]
+    ]
+
+    "Modified: 27.8.1995 / 22:47:32 / claus"
+!
+
 addChangeRecordForClass:aClass
     "add a class-definition-record to the changes file"