--- a/Tools__TagList.st	Thu Jan 24 16:23:31 2013 +0100
+++ b/Tools__TagList.st	Thu Jan 24 18:07:06 2013 +0100
@@ -2046,12 +2046,15 @@
     list := OrderedCollection new.
 
     shellCmd := (self shellCommandFor:aFile pathName).
-    shellCmd isNil ifTrue:[
-        list := self getSimpleTagListFromFile:aFile in:aTempDirectory.
-    ] ifFalse:[
+    shellCmd notNil ifTrue:[
         tagTypesPresent := false.     "/ will be set again, when ctags command provides types
         list := self getTagListFromFile:aFile usingCommand:shellCmd mode:nil in:aTempDirectory
     ].
+
+    "/ incase ctags could not find anything, try our own, naive fallback (not too bad either)
+    list isEmptyOrNil ifTrue:[
+        list := self getSimpleTagListFromFile:aFile in:aTempDirectory.
+    ].
     tagTypesPresent := true.
 
     numTags := list size.
@@ -3640,11 +3643,11 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.21 2013-01-23 22:01:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.22 2013-01-24 17:07:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.21 2013-01-23 22:01:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.22 2013-01-24 17:07:06 cg Exp $'
 !
 
 version_SVN