--- a/SyntaxElement.st	Mon Jan 07 16:44:36 2013 +0100
+++ b/SyntaxElement.st	Fri Jan 11 10:56:30 2013 +0100
@@ -108,6 +108,16 @@
     "Created: / 21-08-2011 / 09:51:35 / cg"
 !
 
+lastElementInChain
+    |last next|
+
+    last := self.
+    [ (next := last nextElement) notNil ] whileTrue:[
+        last := next.
+    ].
+    ^ last
+!
+
 next
     ^ next
 !
@@ -269,9 +279,10 @@
 !SyntaxElement class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.4 2012-07-27 19:53:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.5 2013-01-11 09:56:30 cg Exp $'
 !
 
 version_SVN
     ^ '§Id: SyntaxElement.st 7582 2010-06-25 13:26:33Z vranyj1 §'
 ! !
+