--- a/Float.st	Mon Jul 03 15:56:39 2017 +0200
+++ b/Float.st	Mon Jul 03 15:56:56 2017 +0200
@@ -1873,13 +1873,13 @@
      an invalid value for logarithm
     "
     ^ self class
-        raise:#domainErrorSignal
+        raise:(self = 0 ifTrue:[#infiniteResultSignal] ifFalse:[#domainErrorSignal])
         receiver:self
         selector:#ln
         arguments:#()
         errorString:'bad receiver in ln (not strictly positive)'
 
-    "Modified: / 03-07-2017 / 14:34:21 / cg"
+    "Modified: / 03-07-2017 / 15:48:37 / cg"
 !
 
 log10
@@ -1917,13 +1917,13 @@
      an invalid value for logarithm
     "
     ^ self class
-        raise:#domainErrorSignal
+        raise:(self = 0 ifTrue:[#infiniteResultSignal] ifFalse:[#domainErrorSignal])
         receiver:self
         selector:#log10
         arguments:#()
         errorString:'bad receiver in log10 (not strictly positive)'
 
-    "Modified: / 03-07-2017 / 15:15:29 / cg"
+    "Modified: / 03-07-2017 / 15:48:44 / cg"
 !
 
 raisedTo:aNumber