--- a/Tools__ClassList.st	Tue Nov 21 13:16:23 2017 +0100
+++ b/Tools__ClassList.st	Tue Nov 21 13:16:28 2017 +0100
@@ -541,7 +541,7 @@
             ^ self "no interest" 
         ].    
         something == #methodInClassRemoved ifTrue:[
-            "/ must update the list, if the methods package is different from
+            "/ must update the list, if the method's package is different from
             "/ the classes package (to undo any has-exension highlighting)
             cls := aParameter first.
             self updateListsFor:cls.
@@ -651,7 +651,8 @@
 
     super delayedUpdate:something with:aParameter from:changedObject
 
-    "Modified: / 13.11.2001 / 11:32:10 / cg"
+    "Modified: / 13-11-2001 / 11:32:10 / cg"
+    "Modified (format): / 21-11-2017 / 13:09:43 / cg"
 !
 
 enqueueDelayedClassSelectionChanged