--- a/Tools_MethodCategoryList.st	Fri Apr 30 11:54:59 2010 +0200
+++ b/Tools_MethodCategoryList.st	Fri Apr 30 11:56:30 2010 +0200
@@ -1097,8 +1097,9 @@
      numAll numObsolete numSuper numUncommented numDocumentation numLong numOverride
      numRedefine numExtension numMissingRequired numSubclassResponsibility 
      showPseudoProtocols showCoverageInformation
-     addPseudoEntry countAll pseudoEntryColor|
+     addPseudoEntry countAll pseudoEntryColor userPreferences|
 
+    userPreferences := UserPreferences current.
     countAll := true.
 
     generator := inGeneratorHolder value.
@@ -1290,8 +1291,8 @@
     rawProtocolList addAll:categoryList.
 
     emphasizedPlus := (self colorizeForDifferentPackage:' [ + ]').
-    emphasisForRef := UserPreferences current emphasisForReadVariable.
-    emphasisForMod := UserPreferences current emphasisForWrittenVariable.
+    emphasisForRef := userPreferences emphasisForReadVariable.
+    emphasisForMod := userPreferences emphasisForWrittenVariable.
 
     (itemsInChangeSet notEmpty 
     or:[itemsInRemoteChangeSet notEmpty
@@ -1305,7 +1306,7 @@
     ]]]]]]]]) ifTrue:[
         rawProtocolList keysAndValuesDo:[:idx :cat |
             |item inChangeSet inRemoteChangeSet hasExtensions hasVarRef hasVarMod
-             emp|
+             clr|
 
             item := cat.
 
@@ -1315,18 +1316,18 @@
                 (itemsWithInstrumentedMethods includes:cat) ifTrue:[
                     (itemsWithCalledMethods includes:cat) ifTrue:[
                         (itemsWithPartiallyCoveredMethods includes:cat) ifTrue:[
-                            emp := (UserPreferences current emphasisForInstrumentedPartiallyCoveredCode).
+                            clr := (userPreferences colorForInstrumentedPartiallyCoveredCode).
                         ] ifFalse:[
                             (itemsWithUncalledMethods includes:cat) ifTrue:[
-                                emp := (UserPreferences current emphasisForInstrumentedPartiallyCoveredCode).
+                                clr := (userPreferences colorForInstrumentedPartiallyCoveredCode).
                             ] ifFalse:[
-                                 emp := (UserPreferences current emphasisForInstrumentedFullyCoveredCode).
+                                 clr := (userPreferences colorForInstrumentedFullyCoveredCode).
                             ]
                         ]
                     ] ifFalse:[
-                        emp := (UserPreferences current emphasisForInstrumentedNeverCalledCode).
+                        clr := (userPreferences colorForInstrumentedNeverCalledCode).
                     ].
-                    item := self colorize:cat with:emp.
+                    item := self colorize:cat with:(#color -> clr).
                 ]
             ] ifFalse:[
                 inChangeSet := itemsInChangeSet includes:cat.
@@ -1432,7 +1433,7 @@
     ^ categoryList
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
-    "Modified: / 27-04-2010 / 19:27:26 / cg"
+    "Modified: / 30-04-2010 / 11:56:22 / cg"
 !
 
 makeDependent
@@ -1846,11 +1847,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.55 2010-04-27 17:28:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.56 2010-04-30 09:56:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.55 2010-04-27 17:28:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.56 2010-04-30 09:56:30 cg Exp $'
 ! !
 
 MethodCategoryList initialize!