--- a/MethodPrivacyChange.st	Thu Sep 17 15:14:17 2009 +0200
+++ b/MethodPrivacyChange.st	Fri Sep 18 14:43:53 2009 +0200
@@ -50,6 +50,10 @@
     ^ self basicNew class:cls selector:selector privacy:privacy
 
     "Modified: 27.8.1995 / 22:55:42 / claus"
+!
+
+className:aString selector:selector privacy:privacy 
+    ^ self basicNew className:aString selector:selector privacy:privacy
 ! !
 
 !MethodPrivacyChange methodsFor:'accessing'!
@@ -81,5 +85,5 @@
 !MethodPrivacyChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.9 2006-10-09 12:08:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPrivacyChange.st,v 1.10 2009-09-18 12:43:53 cg Exp $'
 ! !