--- a/Infinity.st	Wed Oct 28 03:19:25 2015 +0100
+++ b/Infinity.st	Wed Oct 28 03:19:43 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  This is a Manchester Goodie.  It is distributed freely on condition
  that you observe these conditions in respect of the whole Goodie, and on
@@ -19,6 +21,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 MetaNumber subclass:#Infinity
 	instanceVariableNames:''
 	classVariableNames:'InfNeg InfPos'
@@ -309,7 +313,8 @@
 !
 
 lessFromSomeNumber:aNumber
-    "Sent from aNumber < self, if aNumber does not know how to handle this"
+    "Sent from aNumber < self, if aNumber does not know how to handle this.
+     Return true if aNumber < self."
 
     aNumber isFinite ifTrue:[
         ^ self positive.
@@ -437,11 +442,11 @@
 !Infinity class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.15 2014-02-14 14:20:03 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.15 2014-02-14 14:20:03 cg Exp $'
+    ^ '$Header$'
 ! !