--- a/Infinity.st	Wed Jun 21 14:13:43 2017 +0200
+++ b/Infinity.st	Wed Jun 21 14:13:50 2017 +0200
@@ -81,8 +81,6 @@
            Changed retry:coercing: to match ST/X's way of doing this
 
     Instance Variables :-
-        positive <Boolean>      :       if true the instance represents positive
-                                        infinity. if false, negative infinity
 "
 !
 
@@ -394,6 +392,12 @@
 
 negative
     ^ true
+!
+
+positive
+    ^ false
+
+    "Created: / 21-06-2017 / 14:02:18 / cg"
 ! !
 
 !Infinity::NegativeInfinity methodsFor:'comparing'!
@@ -426,6 +430,12 @@
 
 negative
     ^ false
+!
+
+positive
+    ^ true
+
+    "Created: / 21-06-2017 / 14:02:28 / cg"
 ! !
 
 !Infinity::PositiveInfinity methodsFor:'comparing'!