--- a/Integer.st	Wed Jun 06 15:17:48 2018 +0200
+++ b/Integer.st	Thu Jun 07 16:23:20 2018 +0200
@@ -799,6 +799,8 @@
     "Modified: / 15.11.1999 / 20:35:20 / cg"
 ! !
 
+
+
 !Integer class methodsFor:'class initialization'!
 
 initialize
@@ -1234,7 +1236,6 @@
 ! !
 
 
-
 !Integer methodsFor:'Compatibility-Dolphin'!
 
 highWord
@@ -2772,9 +2773,10 @@
 asLargeFloat
     "return a LargeFloat with same value as myself.
      Since largeFloats have a limited precision, you usually loose bits when
-     doing this."
-
-    ^ LargeFloat fromInteger:self
+     doing this.
+     If the largeFloat class is not present, a regular float is returned"
+
+    ^ (LargeFloat ? Float) fromInteger:self
 
     "
      1234567890 asLargeFloat
@@ -2782,6 +2784,8 @@
      12345678901234567890 asLargeFloat
      12345678901234567890 asLargeFloat asInteger
     "
+
+    "Modified (comment): / 07-06-2018 / 16:22:59 / Claus Gittinger"
 !
 
 asLongFloat