--- a/Tools__TagList.st	Sun Sep 30 11:37:34 2012 +0200
+++ b/Tools__TagList.st	Sun Sep 30 11:39:59 2012 +0200
@@ -3216,8 +3216,9 @@
 
     collector := WriteStream on:(String new:100).
     el := startElement next.
+
     hasSpace := true.
-    [el tag ~= endTag] whileTrue:[
+    [ el notNil and:[el tag ~= endTag] ] whileTrue:[
         el isTextElement ifTrue:[
             hasSpace ifFalse:[
                 collector space.
@@ -3649,11 +3650,11 @@
 !TagList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.19 2012-09-28 12:52:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.20 2012-09-30 09:39:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.19 2012-09-28 12:52:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.20 2012-09-30 09:39:59 cg Exp $'
 !
 
 version_SVN