--- a/LargeInteger.st	Mon Jul 28 19:11:01 1997 +0200
+++ b/LargeInteger.st	Mon Jul 28 19:11:51 1997 +0200
@@ -244,12 +244,14 @@
     "return the quotient of the receiver and the argument, aNumber"
 
     aNumber isInteger ifTrue:[
-	^ (Fraction numerator:self
-		  denominator:aNumber) reduced
+        ^ Fraction numerator:self
+                  denominator:aNumber
     ].
 
     "this is a q&d hack - we loose lots of precision here ..."
     ^ (self asFloat / aNumber asFloat)
+
+    "Modified: 28.7.1997 / 19:07:55 / cg"
 !
 
 // aNumber
@@ -2052,5 +2054,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.46 1997-07-26 17:46:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.47 1997-07-28 17:11:35 cg Exp $'
 ! !