--- a/Float.st	Wed Feb 15 11:22:05 1995 +0100
+++ b/Float.st	Wed Feb 15 11:24:31 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Float.st,v 1.20 1995-02-05 21:30:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Float.st,v 1.21 1995-02-15 10:24:23 claus Exp $
 '!
 
 !Float class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Float.st,v 1.20 1995-02-05 21:30:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Float.st,v 1.21 1995-02-15 10:24:23 claus Exp $
 "
 !
 
@@ -155,7 +155,7 @@
     OBJ newFloat;
     double result;
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	result = _floatVal(self) + (double)(_intVal(aNumber));
 retResult:
 	_qMKFLOAT(newFloat, result, SENDER);
@@ -178,7 +178,7 @@
     OBJ newFloat;
     double result;
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	result = _floatVal(self) - (double)(_intVal(aNumber));
 retResult:
 	_qMKFLOAT(newFloat, result, SENDER);
@@ -201,7 +201,7 @@
     OBJ newFloat;
     double result;
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	result = _floatVal(self) * (double)(_intVal(aNumber));
 retResult:
 	_qMKFLOAT(newFloat, result, SENDER);
@@ -224,7 +224,7 @@
     OBJ newFloat;
     double result, val;
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	if (aNumber != _MKSMALLINT(0)) {
 	    result = _floatVal(self) / ( (double)_intVal(aNumber)) ;
 retResult:
@@ -290,7 +290,7 @@
 
 %{  /* NOCONTEXT */
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	RETURN ( (_floatVal(self) < (double)(_intVal(aNumber))) ? true : false );
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -306,7 +306,7 @@
 
 %{  /* NOCONTEXT */
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	RETURN ( (_floatVal(self) > (double)(_intVal(aNumber))) ? true : false );
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -322,7 +322,7 @@
 
 %{  /* NOCONTEXT */
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	RETURN ( (_floatVal(self) <= (double)(_intVal(aNumber))) ? true : false );
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -338,7 +338,7 @@
 
 %{  /* NOCONTEXT */
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	RETURN ( (_floatVal(self) >= (double)(_intVal(aNumber))) ? true : false );
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -354,7 +354,7 @@
 
 %{  /* NOCONTEXT */
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	RETURN ( (_floatVal(self) == (double)(_intVal(aNumber))) ? true : false );
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -370,7 +370,7 @@
 
 %{  /* NOCONTEXT */
 
-    if (_isSmallInteger(aNumber)) {
+    if (__isSmallInteger(aNumber)) {
 	RETURN ( (_floatVal(self) != (double)(_intVal(aNumber))) ? true : false );
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {