--- a/SmallInteger.st	Fri Feb 24 17:38:46 1995 +0100
+++ b/SmallInteger.st	Sun Feb 26 19:14:39 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.22 1995-02-24 16:38:13 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.23 1995-02-26 18:14:08 claus Exp $
 '!
 
 !SmallInteger class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.22 1995-02-24 16:38:13 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.23 1995-02-26 18:14:08 claus Exp $
 "
 !
 
@@ -216,7 +216,7 @@
 	RETURN ( false );
     }
 
-    if (_qClass(aNumber) == Float) {
+    if (__isFloatLike(aNumber)) {
 	RETURN ( ((double)_intVal(self) == _floatVal(aNumber)) ? true : false );
     }
 %}
@@ -238,7 +238,7 @@
 	RETURN ( true );
     }
 
-    if (_qClass(aNumber) == Float) {
+    if (__isFloatLike(aNumber)) {
 	RETURN ( ((double)_intVal(self) == _floatVal(aNumber)) ? false : true );
     }
 %}
@@ -260,7 +260,7 @@
 	RETURN ( ((INT)self < (INT)aNumber) ? true : false );
 #endif
     }
-    if (__isFloat(aNumber)) {
+    if (__isFloatLike(aNumber)) {
 	RETURN ( ((double)_intVal(self) < _floatVal(aNumber)) ? true : false );
     }
 %}
@@ -282,7 +282,7 @@
 	RETURN ( ((INT)self > (INT)aNumber) ? true : false );
 #endif
     }
-    if (__isFloat(aNumber)) {
+    if (__isFloatLike(aNumber)) {
 	RETURN ( ((double)_intVal(self) > _floatVal(aNumber)) ? true : false );
     }
 %}
@@ -303,7 +303,7 @@
 	RETURN ( ((INT)self >= (INT)aNumber) ? true : false );
 #endif
     }
-    if (__isFloat(aNumber)) {
+    if (__isFloatLike(aNumber)) {
 	RETURN ( ((double)_intVal(self) >= _floatVal(aNumber)) ? true : false );
     }
 %}
@@ -324,7 +324,7 @@
 	RETURN ( ((INT)self <= (INT)aNumber) ? true : false );
 #endif
     }
-    if (__isFloat(aNumber)) {
+    if (__isFloatLike(aNumber)) {
 	RETURN ( ((double)_intVal(self) <= _floatVal(aNumber)) ? true : false );
     }
 %}
@@ -355,7 +355,7 @@
 	}
 	RETURN ( aNumber );
     }
-    if (__isFloat(aNumber)) {
+    if (__isFloatLike(aNumber)) {
 	if ( (double)_intVal(self) < _floatVal(aNumber) ) {
 	    RETURN ( self );
 	}
@@ -383,7 +383,7 @@
 	}
 	RETURN ( aNumber );
     }
-    if (__isFloat(aNumber)) {
+    if (__isFloatLike(aNumber)) {
 	if ( (double)_intVal(self) > _floatVal(aNumber) ) {
 	    RETURN ( self );
 	}
@@ -533,7 +533,7 @@
 	RETURN ( _MKLARGEINT(sum) );
 #endif
     }
-    if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
+    if (__isFloatLike(aNumber)) {
 	OBJ newFloat;
 	double val;
 
@@ -565,7 +565,7 @@
 	RETURN ( _MKLARGEINT(diff) );
 #endif
     }
-    if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
+    if (__isFloatLike(aNumber)) {
 	OBJ newFloat;
 	double val;
 
@@ -726,7 +726,7 @@
 				     _MKSMALLINT(hiBits(productHi)) );
 	    RETURN(aLarge);
 	}
-    } else if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
+    } else if (__isFloatLike(aNumber)) {
 	OBJ newFloat;
 	double val;
 
@@ -769,7 +769,7 @@
 	    }
 	}
     } else {
-	if (__isFloat(aNumber)) {
+	if (__isFloatLike(aNumber)) {
 	    dval = _floatVal(aNumber);
 	    if (dval != 0.0) {
 		OBJ newFloat;