--- a/SmallInteger.st	Mon May 01 23:30:32 1995 +0200
+++ b/SmallInteger.st	Mon May 01 23:40:01 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.27 1995-04-02 11:07:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.28 1995-05-01 21:39:04 claus Exp $
 '!
 
 !SmallInteger class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.27 1995-04-02 11:07:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.28 1995-05-01 21:39:04 claus Exp $
 "
 !
 
@@ -211,7 +211,7 @@
     if (aNumber == self) {
 	RETURN ( true );
     }
-    if (! _isNonNilObject(aNumber)) {
+    if (! __isNonNilObject(aNumber)) {
 	/* a smallint or nil */
 	RETURN ( false );
     }
@@ -233,7 +233,7 @@
     if (aNumber == self) {
 	RETURN ( false );
     }
-    if (! _isNonNilObject(aNumber)) {
+    if (! __isNonNilObject(aNumber)) {
 	/* a smallint or nil */
 	RETURN ( true );
     }