--- a/Tools__TagList.st	Mon Mar 07 14:12:00 2016 +0100
+++ b/Tools__TagList.st	Mon Mar 07 14:17:41 2016 +0100
@@ -2235,14 +2235,14 @@
         shellCmd := (self shellCommandFor:aFile pathName).
         shellCmd notNil ifTrue:[
             tagTypesPresent := false.     "/ will be set again, when ctags command provides types
-            list := (self getTagListFromFile:aFile usingCommand:shellCmd mode:nil in:aTempDirectory) asOrderedCollection.
+            list := ((self getTagListFromFile:aFile usingCommand:shellCmd mode:nil in:aTempDirectory) ? #()) asOrderedCollection.
             list addAll:(self getAdditionalCTagsInFile:aFile withList:list)
         ].
     ].
 
     "/ in case ctags could not find anything, try our own, naive fallback (not too bad either)
     list isEmptyOrNil ifTrue:[
-        list := (self getSimpleTagListFromFile:aFile in:aTempDirectory) asOrderedCollection.
+        list := ((self getSimpleTagListFromFile:aFile in:aTempDirectory) ? #()) asOrderedCollection.
     ].
     tagTypesPresent := true.