--- a/WrappedMethod.st	Thu Aug 12 11:22:13 2004 +0200
+++ b/WrappedMethod.st	Fri Sep 10 12:40:09 2004 +0200
@@ -133,6 +133,16 @@
     "Modified: / 23.1.1998 / 13:20:59 / stefan"
 !
 
+privacy:aSymbol
+    "set the wrapped methods privacy"
+
+    ^ self originalMethod privacy:aSymbol
+!
+
+restricted:aBoolean
+    ^ self originalMethod restricted:aBoolean
+!
+
 setPrivacy:aSymbol
     "set the wrapped methods privacy"
 
@@ -217,5 +227,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.23 2004-02-18 11:31:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.24 2004-09-10 10:40:09 cg Exp $'
 ! !