--- a/Fraction.st	Sat Jul 26 19:47:17 1997 +0200
+++ b/Fraction.st	Mon Jul 28 11:29:24 1997 +0200
@@ -556,6 +556,11 @@
 
     |gc|
 
+    denominator < 0 ifTrue:[
+	numerator := numerator negated.
+	denominator := denominator negated.
+    ].
+
     denominator == 1 ifTrue:[^ numerator].
     numerator == 1 ifTrue:[^ self].
     numerator == 0 ifTrue:[^ 0].
@@ -565,12 +570,6 @@
 	numerator := numerator // gc.
 	denominator := denominator // gc
     ].
-    (numerator < 0) ifTrue:[
-	(denominator < 0) ifTrue:[
-	    numerator := numerator negated.
-	    denominator := denominator negated
-	]
-    ].
     (denominator == 1) ifTrue:[^ numerator].
     ^ self
 !
@@ -648,6 +647,6 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.36 1997-01-10 18:55:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.37 1997-07-28 09:29:24 cg Exp $'
 ! !
 Fraction initialize!