--- a/Infinity.st	Sat Dec 31 01:02:31 2016 +0100
+++ b/Infinity.st	Sat Dec 31 01:03:41 2016 +0100
@@ -316,6 +316,13 @@
     ^ self negated
 !
 
+equalFromSomeNumber:aNumber
+    "Sent from aNumber = self, if aNumber does not know how to handle this.
+     Return true if aNumber = self."
+
+    ^ aNumber isInfinite and:[self sign == aNumber sign]
+!
+
 lessFromSomeNumber:aNumber
     "Sent from aNumber < self, if aNumber does not know how to handle this.
      Return true if aNumber < self."