diff -r be947d4e7fb2 -r 514c749165c3 SmallInt.st
--- a/SmallInt.st	Mon Oct 10 01:29:01 1994 +0100
+++ b/SmallInt.st	Mon Oct 10 01:29:28 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.16 1994-08-22 12:14:03 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.17 1994-10-10 00:28:25 claus Exp $
 '!
 
 !SmallInteger class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.16 1994-08-22 12:14:03 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.17 1994-10-10 00:28:25 claus Exp $
 "
 !
 
@@ -1407,7 +1407,11 @@
     if (_isSmallInteger(stop)) {
         tmp = _intVal(self);
         final = _intVal(stop);
+#ifdef OLD
         if (__isBlock(aBlock)
+#else
+        if (__isBlockLike(aBlock)
+#endif
          && ((code = _BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil)
          && (_BlockInstPtr(aBlock)->b_nargs == _MKSMALLINT(1))) {
 #ifdef NEW_BLOCK_CALL
@@ -1480,7 +1484,11 @@
         tmp = _intVal(self);
         final = _intVal(stop);
         step = _intVal(incr);
+#ifdef OLD
         if (__isBlock(aBlock)
+#else
+        if (__isBlockLike(aBlock)
+#endif
          && ((code = _BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil)
          && (_BlockInstPtr(aBlock)->b_nargs == _MKSMALLINT(1))) {
 #ifdef NEW_BLOCK_CALL