--- a/UserPreferences.st	Thu Nov 09 11:00:28 2017 +0100
+++ b/UserPreferences.st	Thu Nov 09 21:13:10 2017 +0100
@@ -1767,9 +1767,10 @@
      performing a doit (i.e. in addition to showing a busy cursor).
      If nil is returned, the color remains unchanged."
 
-    ^ self at:#busyBackgroundColorInDoits ifAbsent:[ Color red lightened lightened lightened ]
+    ^ self at:#busyBackgroundColorInDoits ifAbsent:[ Color green lightened lightened lightened ]
 
     "Created: / 01-11-2017 / 11:25:02 / cg"
+    "Modified: / 09-11-2017 / 21:12:30 / cg"
 !
 
 busyBackgroundColorInDoits:aColorOrNil