--- a/ShortFloat.st	Sun Jun 09 13:21:51 2019 +0200
+++ b/ShortFloat.st	Sun Jun 09 13:22:03 2019 +0200
@@ -357,7 +357,6 @@
     "Modified (comment): / 10-05-2018 / 01:09:13 / stefan"
 ! !
 
-
 !ShortFloat class methodsFor:'binary storage'!
 
 readBinaryIEEESingleFrom:aStream
@@ -560,7 +559,9 @@
 !
 
 negativeInfinity
-    "return a shortFloat which represents negative infinity (for my instances)"
+    "return a shortFloat which represents negative infinity (for my instances).
+     Warning: do not compare equal against infinities;
+     instead, check using isFinite or isInfinite"
 
     NegativeInfinity isNil ifTrue:[
         NegativeInfinity := Float negativeInfinity asShortFloat
@@ -568,7 +569,7 @@
     ^ NegativeInfinity
 
     "Created: / 20-06-2017 / 13:45:08 / cg"
-    "Modified (comment): / 08-06-2019 / 14:34:42 / Claus Gittinger"
+    "Modified (comment): / 09-06-2019 / 12:57:11 / Claus Gittinger"
 !
 
 pi
@@ -596,7 +597,6 @@
     "Modified: 23.4.1996 / 09:26:45 / cg"
 ! !
 
-
 !ShortFloat class methodsFor:'queries'!
 
 defaultPrintPrecision