--- a/ObjectMemory.st	Wed Feb 15 11:25:20 1995 +0100
+++ b/ObjectMemory.st	Wed Feb 15 11:27:52 1995 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.23 1995-02-05 21:31:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.24 1995-02-15 10:27:35 claus Exp $
 '!
 
 !ObjectMemory class methodsFor:'documentation'!
@@ -52,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.23 1995-02-05 21:31:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.24 1995-02-15 10:27:35 claus Exp $
 "
 !
 
@@ -973,8 +973,7 @@
     low := anAddress bitAnd:16rFFFF.
     high := (anAddress bitShift:16) bitAnd:16rFFFF.
 %{
-    if (_isSmallInteger(low)
-     && _isSmallInteger(high)) {
+    if (__bothSmallInteger(low, high)) {
 	RETURN ((OBJ)((_intVal(high) << 16) | _intVal(low)));
     }
 %}
@@ -1332,7 +1331,7 @@
      Notice: this is a nonstandard interface - use only in special situations."
 
 %{  
-    if (_isSmallInteger(howMuch))
+    if (__isSmallInteger(howMuch))
 	__moreOldSpace(__context, _intVal(howMuch));
 %}
     "
@@ -1414,7 +1413,7 @@
 %{  /* NOCONTEXT */
     extern unsigned __oldSpaceIncrement();
 
-    if (_isSmallInteger(amount)) {
+    if (__isSmallInteger(amount)) {
 	RETURN (_MKSMALLINT( __oldSpaceIncrement(_intVal(amount)) )); 
     }
 %}
@@ -1462,7 +1461,7 @@
 %{  /* NOCONTEXT */
     extern __checkForFastNew();
 
-    if (_isSmallInteger(amount)) {
+    if (__isSmallInteger(amount)) {
 	if (! __checkForFastNew(_intVal(amount))) {
 	    RETURN (false);
 	}
@@ -1570,7 +1569,7 @@
     char result[10];
     INT addr;
 
-    if (_isSmallInteger(aPageNumber)) {
+    if (__isSmallInteger(aPageNumber)) {
 	addr = _intVal(aPageNumber) & ~(pageSize - 1);
     } else {
 	addr = ((INT)aPageNumber) & ~(pageSize - 1);