--- a/Fraction.st	Wed Nov 27 11:14:44 2019 +0100
+++ b/Fraction.st	Wed Nov 27 11:14:59 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1355,13 +1357,14 @@
     "extract the pre-decimal integer part."
 
     numerator abs < denominator abs ifTrue:[
-	^ 0
+        ^ 0
     ].
-    ^ super integerPart
+    ^ numerator quo: denominator
+    "/ ^ super integerPart
 
     "
-     (3/2) integerPart
-     (-3/2) integerPart
+     (3/2) integerPart  
+     (-3/2) integerPart   
      (2/3) integerPart
      ((3/2)*(15/4)) integerPart
      ((2/3)*(4/15)) integerPart