--- a/Tools__CodeHighlightingService.st	Mon Jul 22 13:39:21 2013 +0200
+++ b/Tools__CodeHighlightingService.st	Mon Jul 22 13:39:34 2013 +0200
@@ -91,7 +91,7 @@
     app notNil ifTrue:[
         | mthd class |
 
-        mthd := codeView methodHolder value.
+        mthd := codeView method.
         (mthd notNil and:[app respondsTo: #syntaxHighlighterForMethod:]) ifTrue:[
             highlighter := app syntaxHighlighterForMethod:mthd.
         ] ifFalse:[
@@ -119,7 +119,7 @@
 
     "Created: / 05-08-2011 / 10:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-09-2011 / 00:23:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-07-2012 / 13:03:21 / cg"
+    "Modified: / 22-07-2013 / 13:33:46 / cg"
 !
 
 syntaxHighlighters
@@ -197,7 +197,7 @@
             cls := Smalltalk at:cls name
         ].
     ].
-    mthd := codeView methodHolder value.
+    mthd := codeView method.
 
     "textView" modified ifFalse:[
         oldCodeList := textView list copy.
@@ -267,7 +267,7 @@
 
     "Modified: / 16-09-2011 / 17:01:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 24-01-2012 / 12:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 27-07-2012 / 22:23:16 / cg"
+    "Modified: / 22-07-2013 / 13:33:40 / cg"
 !
 
 setHighlightedCode:newCode elements: elements
@@ -350,14 +350,14 @@
 !CodeHighlightingService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.41 2013-07-04 19:28:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.42 2013-07-22 11:39:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.41 2013-07-04 19:28:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.42 2013-07-22 11:39:34 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeHighlightingService.st,v 1.41 2013-07-04 19:28:47 cg Exp $'
+    ^ '$Id: Tools__CodeHighlightingService.st,v 1.42 2013-07-22 11:39:34 cg Exp $'
 ! !