--- a/ArithmeticValue.st	Tue Jun 20 14:15:04 2017 +0200
+++ b/ArithmeticValue.st	Tue Jun 20 14:16:02 2017 +0200
@@ -171,9 +171,11 @@
 !
 
 infinity
-    "return something which represents infinity (for my instances)"
+    "return something which represents positive infinity (for my instances)"
 
     ^ Infinity positive
+
+    "Modified (comment): / 20-06-2017 / 13:45:23 / cg"
 !
 
 nan