--- srfi-13.c.~1.13.~	2005-05-26 09:04:39.000000000 +1000
+++ srfi-13.c	2005-06-05 11:44:55.672651856 +1000
@@ -3224,7 +3224,7 @@
 {
   long idx, last_idx;
   const char * p;
-  int ch;
+  char ch;
   SCM res = SCM_EOL;
 
   SCM_VALIDATE_STRING (1, str);