diff --git a/srfi/60.scm b/srfi/60.scm
index 80fe92d7..17f459ca 100644
--- a/srfi/60.scm
+++ b/srfi/60.scm
@@ -149,12 +149,13 @@
   Cyc_check_int(data,y);
   int bf = (int)unbox_number(x);
   int shift = (int)unbox_number(y);
+  int i;
   if (shift > 0) {
-        for (int i = 0; i < shift; i++) {
+        for (i = 0; i < shift; i++) {
                  bf *= 2;
         }
   } else {
-        for (int i = 0; i < abs(shift); i++) {
+        for (i = 0; i < abs(shift); i++) {
                 bf /= 2; 
         }
   }