--- a/Tools__BreakpointService.st	Mon Jul 22 13:39:34 2013 +0200
+++ b/Tools__BreakpointService.st	Mon Jul 22 13:39:55 2013 +0200
@@ -123,7 +123,7 @@
 
     "/ codeView methodHolder class == BlockValue ifTrue:[self breakPoint:#cg].
 
-    method := realMethod := codeView methodHolder value.
+    method := realMethod := codeView method.
     (method notNil and:[method mclass isNil]) ifTrue:[
         "/ hack: ouch - was wrapped in the meantime;
         "/ hurry up and update. Should be done elsewhere (in codeView)
@@ -140,6 +140,8 @@
             gutterView invalidate.
         ]
     ].
+
+    "Modified: / 22-07-2013 / 13:33:28 / cg"
 ! !
 
 !BreakpointService methodsFor:'event handling'!
@@ -252,7 +254,7 @@
 
     |oldMethod newMethod compiler class selector|
 
-    oldMethod := codeView methodHolder value.
+    oldMethod := codeView method.
     (oldMethod notNil and:[oldMethod hasPrimitiveCode not]) ifTrue:[
         "/ be careful: if the text has been edited/modified, do not compile
         textView modified ifTrue:[
@@ -336,7 +338,7 @@
 
     "Created: / 05-07-2011 / 21:33:13 / cg"
     "Modified: / 18-07-2012 / 10:53:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 02-08-2012 / 09:35:41 / cg"
+    "Modified: / 22-07-2013 / 13:33:09 / cg"
 !
 
 setOrToggleBreakpointAtLine:line
@@ -352,7 +354,7 @@
     "/ prepareFullBreakSupport := false.
     prepareFullBreakSupport := true.
 
-    codeView methodHolder value isNil ifTrue:[
+    codeView method isNil ifTrue:[
         ^ self
     ].
 
@@ -424,7 +426,7 @@
 
     "Created: / 17-06-2011 / 13:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 27-07-2011 / 13:27:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 02-08-2012 / 09:26:38 / cg"
+    "Modified: / 22-07-2013 / 13:33:18 / cg"
 ! !
 
 !BreakpointService methodsFor:'queries'!
@@ -514,14 +516,14 @@
 !BreakpointService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.32 2013-07-20 09:07:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.33 2013-07-22 11:39:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.32 2013-07-20 09:07:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.33 2013-07-22 11:39:55 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__BreakpointService.st,v 1.32 2013-07-20 09:07:04 cg Exp $'
+    ^ '$Id: Tools__BreakpointService.st,v 1.33 2013-07-22 11:39:55 cg Exp $'
 ! !