--- a/Tools__TagList.st	Sun Jun 01 19:11:21 2014 +0200
+++ b/Tools__TagList.st	Sun Jun 01 19:11:52 2014 +0200
@@ -477,6 +477,7 @@
     tagList := self new.
     tagList showOnly:nil.
     tagList fromFile:aFilename in:aTempDirectory.
+    tagList do:[:eachTag | eachTag fileName:aFilename].
 
     CachedTagListsPerFile at:aFilename put:(CachedTags new tagList:tagList; tagTimestamp:fileTime; yourself).
     ^ tagList
@@ -3903,14 +3904,14 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.52 2014-06-01 13:51:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.53 2014-06-01 17:11:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.52 2014-06-01 13:51:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.53 2014-06-01 17:11:52 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagList.st,v 1.52 2014-06-01 13:51:45 cg Exp $'
+    ^ '$Id: Tools__TagList.st,v 1.53 2014-06-01 17:11:52 cg Exp $'
 ! !