--- a/Integer.st	Thu Nov 05 17:25:23 2009 +0100
+++ b/Integer.st	Thu Nov 05 17:25:26 2009 +0100
@@ -109,18 +109,18 @@
      especially for mass-data."
 
 %{   /* NOCONTEXT */
-    if (__isString(aString) && __isSmallInteger(startIndex)) {
-	char *cp = (char *)(__stringVal(aString));
-	int idx = __intVal(startIndex) - 1;
-	unsigned INT val;
-
-	if ((unsigned)idx < __stringSize(aString)) {
-	    val = atoi(cp + idx);
-	    if (val <= _MAX_INT) {
-		RETURN(__mkSmallInteger(val));
-	    }
-	    RETURN (__MKUINT(val));
-	}
+    if (__isStringLike(aString) && __isSmallInteger(startIndex)) {
+        char *cp = (char *)(__stringVal(aString));
+        int idx = __intVal(startIndex) - 1;
+        unsigned INT val;
+
+        if ((unsigned)idx < __stringSize(aString)) {
+            val = atoi(cp + idx);
+            if (val <= _MAX_INT) {
+                RETURN(__mkSmallInteger(val));
+            }
+            RETURN (__MKUINT(val));
+        }
     }
 %}.
     self primitiveFailed.
@@ -139,17 +139,17 @@
      Integer fastFromString:'12345' at:0
 
      Time millisecondsToRun:[
-	100000 timesRepeat:[
-	    Integer readFrom:'12345'
-	]
+        100000 timesRepeat:[
+            Integer readFrom:'12345'
+        ]
      ]
     "
 
     "
      Time millisecondsToRun:[
-	100000 timesRepeat:[
-	    Integer fastFromString:'12345' at:1
-	]
+        100000 timesRepeat:[
+            Integer fastFromString:'12345' at:1
+        ]
      ]
     "
 !
@@ -4471,11 +4471,11 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.234 2009-11-03 10:04:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.235 2009-11-05 16:25:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.234 2009-11-03 10:04:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.235 2009-11-05 16:25:26 stefan Exp $'
 ! !
 
 Integer initialize!