--- a/Tools__TagList.st	Wed Jun 24 06:49:52 2015 +0200
+++ b/Tools__TagList.st	Fri Jun 26 06:37:06 2015 +0200
@@ -3977,7 +3977,7 @@
 
     l := line withoutSeparators.
 
-    ((l startsWith:'<xsd:complexType ') or:[l startsWith:'<xsd:simpleType ']) ifTrue:[
+    ((l includesString:':complexType ') or:[l includesString:':simpleType ']) ifTrue:[
         i1 := l findString:'name="'.        
         i1 ~~ 0 ifTrue:[
             nm := l copyFrom:(i1 + 'name="' size).
@@ -3990,7 +3990,7 @@
                             lineNumber:lineNr).
         ].
     ].
-    (l startsWith:'<xsd:element ') ifTrue:[
+    (l includesString:':element ') ifTrue:[
         i1 := l findString:'name="'.        
         i1 ~~ 0 ifTrue:[
             nm := l copyFrom:(i1 + 'name="' size).