--- a/BrowserView.st	Mon Jun 17 16:17:38 2013 +0200
+++ b/BrowserView.st	Wed Jun 19 08:29:38 2013 +0200
@@ -11293,7 +11293,7 @@
                     ].
                     highlighter notNil ifTrue:[
                         code size < 5000 ifTrue:[       
-                            code := highlighter formatMethod:code in:actualClass.
+                            code := highlighter formatMethodSource:code in:actualClass.
                             codeView modifiedChannel onChangeSend:#codeChanged to:self.
                         ] ifFalse:[
                             doStartSyntax := true.
@@ -13520,7 +13520,7 @@
                             codeView modified ifFalse:[
                                 Screen currentScreenQuerySignal answer:device
                                 do:[
-                                    newCode := highlighter formatMethod:oldCode in:cls.
+                                    newCode := highlighter formatMethodSource:oldCode in:cls.
                                 ].
 
                                 "/ must add this event - and not been interrupted
@@ -14532,7 +14532,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.846 2013-06-07 12:22:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.847 2013-06-19 06:29:38 stefan Exp $'
 ! !