--- a/Fraction.st	Thu May 12 04:07:15 1994 +0200
+++ b/Fraction.st	Tue May 17 12:09:46 1994 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.8 1994-02-25 12:58:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.9 1994-05-17 10:07:40 claus Exp $
 '!
 
 !Fraction class methodsFor:'initialization'!
@@ -60,10 +60,10 @@
 %{  /* NOCONTEXT */
     /* this check allows subclassing .. */
     if (self == Fraction) {
-        if (_CanDoQuickNew(sizeof(struct fractionstruct))) {
+        if (_CanDoQuickAlignedNew(sizeof(struct fractionstruct))) {
             OBJ newFraction;
 
-            _qCheckedNew(newFraction, sizeof(struct fractionstruct));
+            _qCheckedAlignedNew(newFraction, sizeof(struct fractionstruct));
             _InstPtr(newFraction)->o_class = Fraction;
             _FractionInstPtr(newFraction)->f_numerator = num;
             _FractionInstPtr(newFraction)->f_denominator = den;