1 files changed, 2 insertions, 2 deletions
diff --git a/rgx.c b/rgx.c
index df5e360..fabbb8a 100644..100755
--- a/rgx.c
+++ b/rgx.c
@@ -31,7 +31,7 @@
 #endif
 
 static char rcsid[] =
-   "$Id: rgx.c,v 1.19 2008/01/31 03:32:33 jaffer Exp $";
+   "$Id: rgx.c,v 1.20 2013/03/14 04:42:23 jaffer Exp $";
 
 #ifdef HAVE_ALLOCA
 # include <alloca.h>
@@ -586,7 +586,7 @@ SCM lstringedit(prog, editspec, args)
     count = CAR(CDR(args));
     ASRTER(INUMP(count)||(count==BOOL_T), count, ARG4, s_stringedit);
   } else
-    count = MAKINUM(1);
+    count = MAKINUM(1L);
 
   /* process the editspec - break it into a list of dotted pairs
    * of integers for substrings to be inserted and