--- a/SomeNumber.st	Fri Dec 30 13:07:37 2016 +0100
+++ b/SomeNumber.st	Sat Dec 31 01:02:31 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 MetaNumber subclass:#SomeNumber
 	instanceVariableNames:'realNumber'
 	classVariableNames:''
@@ -86,6 +88,15 @@
      as the receiver, false otherwise."
 
     ^ something equalFromSomeNumber:self
+
+    "
+        Float infinity = Infinity positive
+        Infinity positive = Float infinity 
+        Float negativeInfinity = Infinity negative
+        Infinity negative = Float negativeInfinity 
+        Float negativeInfinity = Infinity positive
+        Infinity positive = Float negativeInfinity 
+    "
 ! !
 
 !SomeNumber methodsFor:'printing'!
@@ -106,6 +117,10 @@
 
 !SomeNumber methodsFor:'queries'!
 
+isInfinite
+    ^ realNumber isInfinite
+!
+
 sign
     "return the sign of the receiver (-1, 0 or 1)"
 
@@ -115,6 +130,6 @@
 !SomeNumber class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SomeNumber.st,v 1.4 2014-06-30 14:27:34 stefan Exp $'
+    ^ '$Header$'
 ! !