--- a/MIMETypeIconLibrary.st	Tue Mar 12 16:09:24 2019 +0100
+++ b/MIMETypeIconLibrary.st	Sun Mar 17 11:45:12 2019 +0100
@@ -231,8 +231,9 @@
 !MIMETypeIconLibrary class methodsFor:'accessing'!
 
 addOnIconsFor:aFilename to:anIcon
-    "given a fileName, return an appropriate icon, 
-     especially an overlaid icon if linked or locked"
+    "given a fileName, return an appropriate multi-icon,
+     which adds more symbols to the incoming arg, anIcon.
+     A multi-icon is returned if linked or locked"
 
     |addOnIcon addIcns|
 
@@ -254,6 +255,8 @@
         ^ MultiImage images:addIcns.
     ].
     ^ anIcon
+
+    "Modified (comment): / 17-03-2019 / 11:21:25 / Claus Gittinger"
 !
 
 fileTypeIconKeyFor:aFilename