--- a/Integer.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/Integer.st	Fri Jul 08 19:15:03 2005 +0200
@@ -117,7 +117,7 @@
         if ((unsigned)idx < __stringSize(aString)) {
             val = atoi(cp + idx);
             if (val <= _MAX_INT) {
-                RETURN(__MKSMALLINT(val));
+                RETURN(__mkSmallInteger(val));
             }
             RETURN (__MKUINT(val));
         }
@@ -3489,7 +3489,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.174 2005-06-28 13:09:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.175 2005-07-08 17:15:01 cg Exp $'
 ! !
 
 Integer initialize!