*** callint.c	19 Oct 2006 21:07:18 +0200	1.148
--- callint.c	23 Oct 2006 13:30:50 +0200	
***************
*** 473,488 ****
    /* Count the number of arguments the interactive spec would have
       us give to the function.  */
    tem = string;
!   for (j = 0; *tem; j++)
      {
        /* 'r' specifications ("point and mark as 2 numeric args")
  	 produce *two* arguments.  */
!       if (*tem == 'r') j++;
        tem = (unsigned char *) index (tem, '\n');
        if (tem)
! 	tem++;
        else
! 	tem = (unsigned char *) "";
      }
    count = j;
  
--- 473,491 ----
    /* Count the number of arguments the interactive spec would have
       us give to the function.  */
    tem = string;
!   for (j = 0; *tem;)
      {
        /* 'r' specifications ("point and mark as 2 numeric args")
  	 produce *two* arguments.  */
!       if (*tem == 'r')
! 	j += 2;
!       else
! 	j++;
        tem = (unsigned char *) index (tem, '\n');
        if (tem)
! 	++tem;
        else
! 	break;
      }
    count = j;