--- a/Context.st	Fri Jul 25 23:24:37 2014 +0200
+++ b/Context.st	Fri Jul 25 23:26:06 2014 +0200
@@ -1818,7 +1818,7 @@
                 "
                 (method notNil and:[method isWrapped not]) ifTrue:[
                     WrappedMethod notNil ifTrue:[
-                        WrappedMethod allInstancesDo:[:wrapped |
+                        WrappedMethod allWrappedMethodsDo:[:wrapped |
                             wrapped originalMethodIfWrapped == method ifTrue:[
                                 implementorClass := wrapped mclass.
                             ].
@@ -2609,11 +2609,11 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.206 2014-06-13 10:37:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.207 2014-07-25 21:26:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.206 2014-06-13 10:37:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.207 2014-07-25 21:26:06 cg Exp $'
 !
 
 version_HG