--- a/Fraction.st	Tue Nov 26 10:34:32 2002 +0100
+++ b/Fraction.st	Tue Nov 26 10:57:45 2002 +0100
@@ -557,7 +557,9 @@
      as the receiver, false otherwise"
 
     (aNumber isMemberOf:SmallInteger) ifTrue:[
-        (denominator = 1) ifFalse:[^ false].
+        (denominator == 1) ifFalse:[
+            ^ numerator = (aNumber * denominator)
+        ].
         ^ numerator = aNumber
     ].
     aNumber isFraction ifTrue:[
@@ -567,7 +569,9 @@
         ^ self sameFractionValueAs:aNumber
     ].
     (aNumber isInteger) ifTrue:[
-        (denominator = 1) ifFalse:[^ false].
+        (denominator == 1) ifFalse:[
+            ^ numerator = (aNumber * denominator)
+        ].
         ^ numerator = aNumber
     ].
     ^ self retry:#= coercing:aNumber
@@ -894,6 +898,7 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.59 2002-07-31 10:24:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.60 2002-11-26 09:57:45 cg Exp $'
 ! !
+
 Fraction initialize!