--- a/Tools__Tag.st	Sun Jun 01 16:05:50 2014 +0200
+++ b/Tools__Tag.st	Sun Jun 01 18:54:23 2014 +0200
@@ -394,6 +394,16 @@
 "/        ^  type, ' ' , l
 "/    ].
     ^ l
+!
+
+shortInfoString
+    |s|
+
+    s := self typeString.
+    fileName notNil ifTrue:[
+        s := s , ' in ', fileName pathName.
+    ].
+    ^ s
 ! !
 
 !Tag methodsFor:'queries'!
@@ -1423,11 +1433,15 @@
 
 !Tag class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.12 2014-06-01 16:54:23 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.11 2014-06-01 10:16:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.12 2014-06-01 16:54:23 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Tag.st,v 1.11 2014-06-01 10:16:44 cg Exp $'
+    ^ '$Id: Tools__Tag.st,v 1.12 2014-06-01 16:54:23 cg Exp $'
 ! !