--- a/ListEntry.st	Wed Dec 21 18:49:34 2016 +0100
+++ b/ListEntry.st	Tue Jan 03 15:04:04 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#ListEntry
 	instanceVariableNames:''
 	classVariableNames:''
@@ -50,6 +52,29 @@
 "
 ! !
 
+!ListEntry methodsFor:'comparing'!
+
+< aString
+    "behave like a string when comparing"
+
+    ^ self asString < aString asString
+
+    "Created: 8.2.1996 / 12:01:29 / cg"
+!
+
+= aString
+    "behave like a string when comparing"
+
+    self == aString ifTrue:[^ true].
+    ^ self asString = aString asString
+!
+
+hash
+    "return an integer useful for hashing"
+
+    ^ self asString hash
+! !
+
 !ListEntry methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -141,21 +166,6 @@
 
 !ListEntry methodsFor:'string protocol'!
 
-< aString
-    "behave like a string when comparing"
-
-    ^ self asString < aString asString
-
-    "Created: 8.2.1996 / 12:01:29 / cg"
-!
-
-= aString
-    "behave like a string when comparing"
-
-    self == aString ifTrue:[^ true].
-    ^ self asString = aString asString
-!
-
 at:index
     "behave like a string when accessing characters"
 
@@ -172,20 +182,15 @@
 
     "Created: / 8.2.1996 / 12:56:06 / cg"
     "Modified: / 30.10.1997 / 15:42:06 / cg"
-!
-
-hash
-    "return an integer useful for hashing"
-
-    ^ self asString hash
 ! !
 
 !ListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.20 2009-10-16 09:11:08 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.20 2009-10-16 09:11:08 cg Exp $'
+    ^ '$Header$'
 ! !
+