--- a/Color.st	Thu Jun 29 12:09:08 2017 +0200
+++ b/Color.st	Wed Jul 05 10:48:45 2017 +0200
@@ -4008,15 +4008,15 @@
      return a new color, which is darker than the receiver.
      Almost the same as darkened for Squeak compatibility."
 
-    ^ self mixed:0.8333 with:Black
+    ^ self mixed:1 with:Black
+    "/ ^ self mixed:0.8333 with:Black
 
     "
      (Color red) darker
      (Color red) muchDarker
     "
 
-    "Modified: / 11-06-1996 / 18:10:37 / cg"
-    "Modified (comment): / 03-02-2017 / 11:38:42 / cg"
+    "Modified: / 05-07-2017 / 09:28:40 / cg"
 !
 
 lighter
@@ -4024,7 +4024,8 @@
      return a new color, which is slightly lighter than the receiver.
      Almost the same as lightened for Squeak compatibility."
 
-    ^ self mixed:0.8333 with:White
+    ^ self mixed:1 with:White
+    "/ ^ self mixed:0.8333 with:White
 
     "
      (Color red)
@@ -4033,8 +4034,7 @@
      (Color red) veryMuchLighter
     "
 
-    "Modified: / 11-06-1996 / 18:10:49 / cg"
-    "Modified (comment): / 03-02-2017 / 11:38:47 / cg"
+    "Modified: / 05-07-2017 / 09:29:18 / cg"
 !
 
 muchDarker
@@ -4113,6 +4113,22 @@
     "Modified (comment): / 03-02-2017 / 11:40:03 / cg"
 !
 
+twiceDarker
+    "Squeak compatibility:
+     return a new color, which is twice as dark as the receiver"
+
+    ^ self darker darker
+
+    "
+     (Color red) 
+     (Color red) darker
+     (Color red) twiceDarker
+     (Color red) muchDarker
+    "
+
+    "Created: / 05-07-2017 / 09:27:16 / cg"
+!
+
 veryMuchLighter
     "Squeak compatibility:
      return a new color, which is very much lighter than the receiver"