--- a/Tools__BreakpointService.st	Tue Sep 24 17:49:13 2013 +0200
+++ b/Tools__BreakpointService.st	Tue Sep 24 17:54:30 2013 +0200
@@ -149,7 +149,7 @@
         ].
     ].
     realMethod ~~ currentMethod ifTrue:[
-        "/ self methodHolder setValue:realMethod.
+        "/ self fetchMethodHolder setValue:realMethod.
         oldBreakPoints := breakpoints.
         self updateBreakPointsFor:realMethod.
         oldBreakPoints ~= breakpoints ifTrue:[
@@ -550,7 +550,7 @@
     "/ based on smalltalk methods). They are not really needed: if there is a breakpoint,
     "/ I can show it. Period.
 
-    "/    (mthd := self methodHolder value) isNil ifTrue:[
+    "/    (mthd := self fetchMethodHolder value) isNil ifTrue:[
     "/        ^ self
     "/    ].
     "/    currentMethodClass isNil ifTrue:[
@@ -597,14 +597,14 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.40 2013-09-24 15:49:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.41 2013-09-24 15:54:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.40 2013-09-24 15:49:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.41 2013-09-24 15:54:30 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__BreakpointService.st,v 1.40 2013-09-24 15:49:13 cg Exp $'
+    ^ '$Id: Tools__BreakpointService.st,v 1.41 2013-09-24 15:54:30 cg Exp $'
 ! !