--- a/Tools__CodeView2.st	Thu Nov 27 16:45:23 2014 +0100
+++ b/Tools__CodeView2.st	Thu Nov 27 16:45:28 2014 +0100
@@ -1275,12 +1275,13 @@
     "See the comment in
      CodeViewService>>drawLine:in:atX..."
 
-    services do:[:each|
+    self servicesDo:[:each|
         each drawLine:lineNo in: view atX:x y:y width: w height:h from:startCol to:endColOrNil with:fg and:bg
     ]
 
     "Created: / 17-06-2011 / 13:50:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 06-10-2011 / 14:14:04 / cg"
+    "Modified: / 27-11-2014 / 15:37:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 redrawVisibleLine: visLineNr
@@ -2123,7 +2124,11 @@
 !
 
 servicesDo:aBlock
-    services notNil ifTrue:[ services do:aBlock ]
+    services notNil ifTrue:[ 
+        services do:[ :service | service isEnabled ifTrue:[ aBlock value: service ] ] 
+    ]
+
+    "Modified: / 27-11-2014 / 15:38:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 syntaxHighlightingService
@@ -4104,15 +4109,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.173 2014-11-26 19:44:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.174 2014-11-27 15:45:28 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.173 2014-11-26 19:44:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.174 2014-11-27 15:45:28 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.173 2014-11-26 19:44:17 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.174 2014-11-27 15:45:28 vrany Exp $'
 ! !