--- a/Icon.st	Wed Dec 21 20:14:26 2016 +0100
+++ b/Icon.st	Tue Dec 27 12:02:43 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -219,6 +217,13 @@
     "
 
     "Modified: 10.1.1997 / 17:52:06 / cg"
+!
+
+nameIfKnownIcon:anImage
+    "back-query, given an image, return its name-key if known; nil otherwise"
+
+    KnownIcons isNil ifTrue:[^ nil].
+    ^ KnownIcons keyAtValue:anImage ifAbsent:[nil].
 ! !
 
 !Icon class methodsFor:'image specs'!