--- a/WrappedMethod.st	Wed Feb 11 16:40:01 2004 +0100
+++ b/WrappedMethod.st	Wed Feb 18 12:31:49 2004 +0100
@@ -57,6 +57,11 @@
     "Modified: 24.6.1996 / 14:10:34 / stefan"
 !
 
+category:newCategory
+    super category:newCategory.
+    self originalMethod category:newCategory
+!
+
 literals
     "return the wrapped methods literals"
 
@@ -114,6 +119,11 @@
     "Modified: / 23.1.1998 / 13:08:25 / stefan"
 !
 
+package:aSymbol
+    super package:aSymbol.
+    self originalMethod package:aSymbol
+!
+
 privacy
     "return the wrapped methods privacy"
 
@@ -207,5 +217,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.22 2000-09-03 15:14:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.23 2004-02-18 11:31:49 cg Exp $'
 ! !