--- a/Tools__Tag.st	Sun Jun 01 18:54:23 2014 +0200
+++ b/Tools__Tag.st	Sun Jun 01 19:11:21 2014 +0200
@@ -401,7 +401,7 @@
 
     s := self typeString.
     fileName notNil ifTrue:[
-        s := s , ' in ', fileName pathName.
+        s := s , ' in ', fileName baseName "pathName".
     ].
     ^ s
 ! !
@@ -1434,14 +1434,14 @@
 !Tag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.12 2014-06-01 16:54:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.13 2014-06-01 17:11:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.12 2014-06-01 16:54:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.13 2014-06-01 17:11:21 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Tag.st,v 1.12 2014-06-01 16:54:23 cg Exp $'
+    ^ '$Id: Tools__Tag.st,v 1.13 2014-06-01 17:11:21 cg Exp $'
 ! !