diff --git a/inc/uutilsdefs.h b/inc/uutilsdefs.h
index 2100328..92b6c06 100644
--- a/inc/uutilsdefs.h
+++ b/inc/uutilsdefs.h
@@ -1,6 +1,6 @@
 #ifndef UUTILSDEFS_H
 #define UUTILSDEFS_H 1
-int lisp_string_to_c_string(LispPTR Lisp, char *C, int length);
+int lisp_string_to_c_string(LispPTR Lisp, char *C, size_t length);
 int c_string_to_lisp_string(char *C, LispPTR Lisp);
 LispPTR check_unix_password(LispPTR *args);
 LispPTR unix_username(LispPTR *args);
diff --git a/src/uutils.c b/src/uutils.c
index 119d440..3b33233 100644
--- a/src/uutils.c
+++ b/src/uutils.c
@@ -50,7 +50,7 @@
 /*									*/
 /************************************************************************/
 
-int lisp_string_to_c_string(LispPTR Lisp, char *C, int length) {
+int lisp_string_to_c_string(LispPTR Lisp, char *C, size_t length) {
   register OneDArray *arrayp;
   register char *base;
 
@@ -95,7 +95,7 @@ int lisp_string_to_c_string(LispPTR Lisp, char *C, int length) {
 int c_string_to_lisp_string(char *C, LispPTR Lisp) {
   register OneDArray *arrayp;
   char *base;
-  register int length;
+  register size_t length;
 
   length = strlen(C);
   if (GetTypeNumber(Lisp) != TYPE_ONED_ARRAY) { return (-1); }
@@ -111,7 +111,7 @@ int c_string_to_lisp_string(char *C, LispPTR Lisp) {
       strcpy(base, C);
 #else
       {
-        register int i;
+        register size_t i;
         register char *dp;
         for (i = 0, dp = C; i < length + 1; i++) {
           int ch = *dp++;