--- a/Tools__TagList.st	Fri Jun 12 11:31:49 2015 +0200
+++ b/Tools__TagList.st	Sat Jun 13 20:27:11 2015 +0200
@@ -3990,6 +3990,19 @@
                             lineNumber:lineNr).
         ].
     ].
+    (l startsWith:'<xsd:element ') ifTrue:[
+        i1 := l findString:'name="'.        
+        i1 ~~ 0 ifTrue:[
+            nm := l copyFrom:(i1 + 'name="' size).
+            i2 := nm indexOf:$".
+            nm := nm copyTo:i2-1.
+            ^(Tag::TElement 
+                            label:nm 
+                            pattern:nil
+                            type:nil
+                            lineNumber:lineNr).
+        ].
+    ].
     ^ nil
 !