--- a/Infinity.st	Wed Jul 02 11:46:27 2003 +0200
+++ b/Infinity.st	Wed Jul 02 11:52:56 2003 +0200
@@ -228,7 +228,10 @@
 !
 
 = aNumber
-    ^ aNumber == self
+    "return true, if the argument represents the same numeric value
+     as the receiver, false otherwise."
+
+    ^ aNumber = self
 ! !
 
 !Infinity methodsFor:'double dispatching'!
@@ -316,7 +319,7 @@
 !Infinity::NegativeInfinity methodsFor:'testing'!
 
 sign
-    "return the sign of the receiver"
+    "return the sign of the receiver (1)"
 
     ^ -1
 ! !
@@ -340,7 +343,7 @@
 !Infinity::PositiveInfinity methodsFor:'testing'!
 
 sign
-    "return the sign of the receiver"
+    "return the sign of the receiver (-1)"
 
     ^ 1
 ! !
@@ -348,7 +351,7 @@
 !Infinity class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.10 2003-07-02 09:46:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.11 2003-07-02 09:52:46 cg Exp $'
 ! !
 
 Infinity initialize!