--- perl_matcher_common_orig.hpp	2010-05-05 15:06:02.000000000 +0200
+++ perl_matcher_common.hpp	2010-05-05 15:05:50.000000000 +0200
@@ -732,10 +732,10 @@
    {
       // Have we recursed into subexpression "index"?
       // If index == 0 then check for any recursion at all, otherwise for recursion to -index-1.
-      int id = -index-1;
-      if(id >= 10000)
-         id = re.get_data().get_id(id);
-      result = recursion_stack_position && ((recursion_stack[recursion_stack_position-1].id == id) || (index == 0));
+      int idtest = -index-1;
+      if(idtest >= 10000)
+         idtest = re.get_data().get_id(idtest);
+      result = recursion_stack_position && ((recursion_stack[recursion_stack_position-1].id == idtest) || (index == 0));
       pstate = pstate->next.p;
    }
    return result;