diff --git a/src/uutils.c b/src/uutils.c
index 7894075..da75c7a 100644
--- a/src/uutils.c
+++ b/src/uutils.c
@@ -130,7 +130,7 @@ int c_string_to_lisp_string(char *C, LispPTR Lisp) {
       {
         register int i;
         register char *dp;
-        for (i = 0, dp = C; i <= length + 1; i++) {
+        for (i = 0, dp = C; i < length + 1; i++) {
           int ch = *dp++;
 #ifdef DOS
           if (ch == '\\') dp++; /* skip 2nd \ in \\ in C strings */