--- a/Fraction.st	Mon Jul 06 21:59:18 1998 +0200
+++ b/Fraction.st	Thu Jul 09 10:06:37 1998 +0200
@@ -437,14 +437,20 @@
      as the receiver, false otherwise"
 
     (aNumber isMemberOf:SmallInteger) ifTrue:[
-	(denominator = 1) ifFalse:[^ false].
-	^ numerator = aNumber
+        (denominator = 1) ifFalse:[^ false].
+        ^ numerator = aNumber
     ].
     aNumber isFraction ifTrue:[
-	(numerator = aNumber numerator) ifFalse:[^ false].
-	^ denominator = aNumber denominator
+        (numerator = aNumber numerator) ifFalse:[^ false].
+        ^ denominator = aNumber denominator
+    ].
+    (aNumber isInteger) ifTrue:[
+        (denominator = 1) ifFalse:[^ false].
+        ^ numerator = aNumber
     ].
     ^ self retry:#= coercing:aNumber
+
+    "Modified: / 7.7.1998 / 17:17:07 / cg"
 !
 
 > aNumber
@@ -660,6 +666,6 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.41 1997-09-02 20:52:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.42 1998-07-09 08:06:37 cg Exp $'
 ! !
 Fraction initialize!