--- a/Color.st	Fri Feb 03 14:03:35 2017 +0100
+++ b/Color.st	Fri Feb 03 14:07:15 2017 +0100
@@ -1868,16 +1868,20 @@
 !
 
 greenCaringForColorBlindness
-    "return the color to use for green,
+    "return the color to use for a darkened green (showing text in that color),
      possibly using anther color if the settings specifies color blindness"
      
     UserPreferences current useColorsForColorBlindness ifTrue:[
         "/ for now: later, this will also be configurable
         ^ self blue.
     ] ifFalse:[
-        ^ self green.
+        ^ self green darkened.
     ].
 
+    "
+     self greenCaringForColorBlindness
+    "
+
     "Created: / 03-02-2017 / 14:02:26 / cg"
 !