--- a/Tools__CheckinInfoDialog.st	Mon May 09 21:47:57 2016 +0200
+++ b/Tools__CheckinInfoDialog.st	Thu May 12 08:33:55 2016 +0200
@@ -521,8 +521,7 @@
                       or:[ (dialog logMessage) withoutSeparators notEmptyOrNil ].
         stopAsking ifFalse:[
             warnMessage := (self resources string:'Please enter a description of your changes!!') 
-                                asText 
-                                    colorizeAllWith:Color red.
+                                withColor:Color red.
         ].
         stopAsking
     ].