--- a/SyntaxElement.st	Tue Feb 17 16:59:19 2015 +0100
+++ b/SyntaxElement.st	Tue Feb 17 17:00:02 2015 +0100
@@ -25,6 +25,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 Magnitude subclass:#SyntaxElement
 	instanceVariableNames:'start stop type value next prev'
 	classVariableNames:''
@@ -240,7 +242,7 @@
 !SyntaxElement methodsFor:'double dispatching'!
 
 lessFromInteger:anInteger
-    ^stop < anInteger
+    ^ self stop < anInteger
 
     "Created: / 14-02-2010 / 13:49:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 27-07-2012 / 21:53:33 / cg"
@@ -298,10 +300,10 @@
 !SyntaxElement class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.7 2013-06-24 13:43:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.8 2015-02-17 16:00:02 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: SyntaxElement.st,v 1.7 2013-06-24 13:43:05 cg Exp $'
+    ^ '$Id: SyntaxElement.st,v 1.8 2015-02-17 16:00:02 stefan Exp $'
 ! !