--- a/Fraction.st	Tue Sep 02 19:40:57 1997 +0200
+++ b/Fraction.st	Tue Sep 02 22:56:14 1997 +0200
@@ -82,7 +82,7 @@
     /* this check allows subclassing .. */
     if (self == Fraction) {
         if (__bothSmallInteger(num, den)) {
-            if (__CanDoQuickAlignedNew(sizeof(struct __fraction))) {
+            if (__CanDoQuickAlignedNew(sizeof(struct __fraction))) {	/* OBJECT ALLOCATION */
                 OBJ newFraction;
                 int spc;
 
@@ -660,6 +660,6 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.40 1997-08-11 17:15:58 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.41 1997-09-02 20:52:53 cg Exp $'
 ! !
 Fraction initialize!