--- a/Infinity.st	Wed Jul 02 11:45:40 2003 +0200
+++ b/Infinity.st	Wed Jul 02 11:46:27 2003 +0200
@@ -301,6 +301,10 @@
 
 negated
     ^ InfPos
+!
+
+negative
+    ^ true
 ! !
 
 !Infinity::NegativeInfinity methodsFor:'printing'!
@@ -321,6 +325,10 @@
 
 negated
     ^ InfNeg
+!
+
+negative
+    ^ false
 ! !
 
 !Infinity::PositiveInfinity methodsFor:'printing'!
@@ -340,7 +348,7 @@
 !Infinity class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.9 2003-07-02 09:45:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.10 2003-07-02 09:46:20 cg Exp $'
 ! !
 
 Infinity initialize!

--- a/SomeNumber.st	Wed Jul 02 11:45:40 2003 +0200
+++ b/SomeNumber.st	Wed Jul 02 11:46:27 2003 +0200
@@ -37,8 +37,8 @@
 
 documentation
 "
-    Only used internally during the double dispatch process when MetaNumbers
-    (INF and NAN) are involved.
+    Only used internally during double dispatch, 
+    when MetaNumbers (INF and NAN) are involved.
 
     [author:]
         Claus Gittinger
@@ -111,5 +111,5 @@
 !SomeNumber class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SomeNumber.st,v 1.1 2003-06-21 10:14:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SomeNumber.st,v 1.2 2003-07-02 09:46:27 cg Exp $'
 ! !