--- a/WrappedMethod.st	Fri Oct 19 17:00:12 2012 +0200
+++ b/WrappedMethod.st	Mon Oct 22 10:13:16 2012 +0200
@@ -53,7 +53,7 @@
 !WrappedMethod class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.32 2012-07-31 12:16:21 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.33 2012-10-22 08:13:16 cg Exp $'
 ! !
 
 !WrappedMethod class methodsFor:'registration'!
@@ -86,7 +86,7 @@
 !WrappedMethod methodsFor:'accessing'!
 
 annotations
-    "return the wrapped methods annotations"
+    "return the wrapped method's annotations"
 
     ^ self originalMethod annotations
 
@@ -107,13 +107,13 @@
 !
 
 literals
-    "return the wrapped methods literals"
+    "return the wrapped method's literals"
 
     ^ self originalMethod literals
 !
 
 literalsDetect:aBlock ifNone:exceptionBlock
-    "access the wrapped methods literals"
+    "access the wrapped method's literals"
 
     ^ self originalMethod literalsDetect:aBlock ifNone:exceptionBlock
 
@@ -121,7 +121,7 @@
 !
 
 literalsDo:aBlock
-    "access the wrapped methods literals"
+    "access the wrapped method's literals"
 
     ^ self originalMethod literalsDo:aBlock
 
@@ -177,7 +177,7 @@
 !
 
 privacy
-    "return the wrapped methods privacy"
+    "return the wrapped method's privacy"
 
     ^ self originalMethod privacy
 
@@ -186,7 +186,7 @@
 !
 
 privacy:aSymbol
-    "set the wrapped methods privacy"
+    "set the wrapped method's privacy"
 
     ^ self originalMethod privacy:aSymbol
 !
@@ -200,7 +200,7 @@
 !
 
 setPrivacy:aSymbol
-    "set the wrapped methods privacy"
+    "set the wrapped method's privacy"
 
     ^ self originalMethod setPrivacy:aSymbol