--- a/Tools__BreakpointService.st	Mon Jun 23 10:58:57 2014 +0200
+++ b/Tools__BreakpointService.st	Mon Jun 23 10:59:28 2014 +0200
@@ -292,9 +292,9 @@
     (method notNil and:[method mclass isNil]) ifTrue:[
         "/ hack: ouch - was wrapped in the meantime;
         "/ hurry up and update. Should be done elsewhere (in codeView)
-        realMethod := MethodWithBreakpoints allInstances detect:[:m | m originalMethod == method and:[m mclass notNil]] ifNone:nil.
+        realMethod := MethodWithBreakpoints allBreakpointedMethods detect:[:m | m originalMethod == method and:[m mclass notNil]] ifNone:nil.
         realMethod isNil ifTrue:[
-            realMethod := WrappedMethod allInstances detect:[:m | m originalMethod == method and:[m mclass notNil]] ifNone:nil.
+            realMethod := WrappedMethod allWrappedMethods detect:[:m | m originalMethod == method and:[m mclass notNil]] ifNone:nil.
         ].
     ].
     realMethod ~~ currentMethod ifTrue:[
@@ -671,14 +671,14 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.52 2014-06-15 13:06:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.53 2014-06-23 08:59:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.52 2014-06-15 13:06:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.53 2014-06-23 08:59:28 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__BreakpointService.st,v 1.52 2014-06-15 13:06:54 cg Exp $'
+    ^ '$Id: Tools__BreakpointService.st,v 1.53 2014-06-23 08:59:28 cg Exp $'
 ! !