--- a/Fraction.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/Fraction.st	Fri Jul 08 19:15:03 2005 +0200
@@ -89,7 +89,7 @@
     /* this check allows subclassing .. */
     if (self == Fraction) {
         if (__bothSmallInteger(num, den)) {
-            if (den != __MKSMALLINT(0)) {
+            if (den != __mkSmallInteger(0)) {
                 if (__CanDoQuickAlignedNew(sizeof(struct __Fraction))) {    /* OBJECT ALLOCATION */
                     OBJ newFraction;
                     int spc;
@@ -101,13 +101,13 @@
                     iDen = __intVal(den);
                     if (iDen != 0) {
                         if (iDen < 0) {
-                            __FractionInstPtr(newFraction)->f_numerator = __MKSMALLINT(- __intVal(num));
-                            __FractionInstPtr(newFraction)->f_denominator = __MKSMALLINT(- iDen);
+                            __FractionInstPtr(newFraction)->f_numerator = __mkSmallInteger(- __intVal(num));
+                            __FractionInstPtr(newFraction)->f_denominator = __mkSmallInteger(- iDen);
                         } else {
                             __FractionInstPtr(newFraction)->f_numerator = num;
                             __FractionInstPtr(newFraction)->f_denominator = den;
                         }
-                        if (num == __MKSMALLINT(1)) {
+                        if (num == __mkSmallInteger(1)) {
                             /* no need to reduce */
                             RETURN ( newFraction );
                         }
@@ -1098,7 +1098,7 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.71 2004-11-10 10:40:41 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.72 2005-07-08 17:15:01 cg Exp $'
 ! !
 
 Fraction initialize!