--- a/SmallInteger.st	Sun Feb 05 22:33:24 1995 +0100
+++ b/SmallInteger.st	Sun Feb 05 22:34:09 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.19 1995-02-02 12:22:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.20 1995-02-05 21:34:09 claus Exp $
 '!
 
 !SmallInteger class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.19 1995-02-02 12:22:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.20 1995-02-05 21:34:09 claus Exp $
 "
 !
 
@@ -524,13 +524,13 @@
 	RETURN ( _ADD_IO_IO(self, aNumber) );
 #else
 	REGISTER INT sum;
-	extern OBJ _makeLarge();
+	extern OBJ _MKLARGEINT();
 
 	sum =  _intVal(self) + _intVal(aNumber);
 	if ((sum >= _MIN_INT) && (sum <= _MAX_INT)) {
 	    RETURN ( _MKSMALLINT(sum) );
 	}
-	RETURN ( _makeLarge(sum) );
+	RETURN ( _MKLARGEINT(sum) );
 #endif
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -556,13 +556,13 @@
 	RETURN ( _SUB_IO_IO(self, aNumber) );
 #else
 	REGISTER INT diff;
-	extern OBJ _makeLarge();
+	extern OBJ _MKLARGEINT();
 
 	diff =  _intVal(self) - _intVal(aNumber);
 	if ((diff >= _MIN_INT) && (diff <= _MAX_INT)) {
 	    RETURN ( _MKSMALLINT(diff) );
 	}
-	RETURN ( _makeLarge(diff) );
+	RETURN ( _MKLARGEINT(diff) );
 #endif
     }
     if ((aNumber != nil) && (_qClass(aNumber) == Float)) {