--- a/Fraction.st	Thu Sep 14 15:10:57 2017 +0200
+++ b/Fraction.st	Thu Sep 14 15:29:55 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -433,17 +431,22 @@
     "/ (see the message send at the bottom)
 
     (aNumber isMemberOf:SmallInteger) ifTrue:[
-	^ self class
-		numerator:(numerator * aNumber)
-		denominator:denominator
+        ^ self class
+                numerator:(numerator * aNumber)
+                denominator:denominator
     ].
-    (aNumber isMemberOf:Float) ifTrue:[
-	^ (numerator * aNumber) / denominator
+    aNumber isFloat ifTrue:[
+        ^ (numerator * aNumber) / denominator
     ].
 
     ^ aNumber productFromFraction:self
 
-    "Modified: 28.7.1997 / 19:09:23 / cg"
+    "
+        2/3 * 3 asLongFloat
+    "
+
+    "Modified: / 28-07-1997 / 19:09:23 / cg"
+    "Modified (comment): / 14-09-2017 / 15:27:30 / stefan"
 !
 
 + aNumber
@@ -460,17 +463,22 @@
     "/ (see the message send at the bottom)
 
     (aNumber isMemberOf:SmallInteger) ifTrue:[
-	^ self class
-	    numerator:(numerator + (denominator * aNumber))
-	    denominator:denominator
+        ^ self class
+            numerator:(numerator + (denominator * aNumber))
+            denominator:denominator
     ].
     (aNumber isMemberOf:Float) ifTrue:[
-	^ (numerator asFloat / denominator asFloat) + aNumber
+        ^ (numerator asFloat / denominator asFloat) + aNumber
     ].
 
     ^ aNumber sumFromFraction:self
 
-    "Modified: 28.7.1997 / 19:09:16 / cg"
+    "
+        2/3 + 10 asLongFloat
+    "
+
+    "Modified: / 28-07-1997 / 19:09:16 / cg"
+    "Modified (comment): / 14-09-2017 / 15:26:46 / stefan"
 !
 
 - aNumber
@@ -522,17 +530,18 @@
     "/ (see the message send at the bottom)
 
     (aNumber isMemberOf:SmallInteger) ifTrue:[
-	^ self class
-		numerator:numerator
-		denominator:(denominator * aNumber)
+        ^ self class
+                numerator:numerator
+                denominator:(denominator * aNumber)
     ].
-    (aNumber isMemberOf:Float) ifTrue:[
-	^ numerator / (denominator * aNumber)
+    aNumber isFloat ifTrue:[
+        ^ numerator / (denominator * aNumber)
     ].
 
     ^ aNumber quotientFromFraction:self
 
-    "Modified: 28.7.1997 / 19:09:06 / cg"
+    "Modified: / 28-07-1997 / 19:09:06 / cg"
+    "Modified: / 14-09-2017 / 15:24:48 / stefan"
 !
 
 // aNumber