--- a/AbstractSourceCodeManager.st	Fri Apr 14 03:55:59 2017 +0000
+++ b/AbstractSourceCodeManager.st	Tue May 16 12:21:48 2017 +0200
@@ -3706,7 +3706,7 @@
     ].
 
     (log at:#revisions ifAbsent:#()) do:[:entry |
-        |logMsg color|
+        |logMsg color firstLine|
 
         aStream cr.
         aStream nextPutAll:'  revision '; 
@@ -3724,7 +3724,16 @@
         (logMsg isBlank or:[logMsg withoutSeparators = '.']) ifTrue:[
             logMsg := '*** empty log message ***'.
             color := Color red.
-        ].
+        ] ifFalse:[
+            firstLine := (logMsg upTo:Character cr).
+            ((firstLine startsWith:'#') not or:[ (firstLine startsWith:'#BUGFIX') ]) ifTrue:[
+                color := Color red.
+            ] ifFalse:[    
+                (firstLine startsWith:'#DOCUMENTATION') ifTrue:[
+                    color := Color grey.
+                ].    
+            ].    
+        ].    
         logMsg asCollectionOfLines do:[:eachLine |
             aStream tab.
             aStream nextPutAllText:(eachLine withColor:color); cr.
@@ -3733,7 +3742,7 @@
 
     "Created: / 16-11-1995 / 13:25:30 / cg"
     "Modified: / 27-11-1996 / 18:26:30 / stefan"
-    "Modified: / 21-12-2011 / 23:33:53 / cg"
+    "Modified (format): / 16-05-2017 / 12:21:32 / cg"
 !
 
 writeRevisionLogOf:aClass fromRevision:rev1 toRevision:rev2 finishAfter:maxCount to:aStream