--- a/src/c/file.d
+++ b/src/c/file.d
@@ -1519,7 +1519,7 @@
 		stream = stream->stream.object1;
 		goto AGAIN;
 	} else {
-		unsigned char *p;
+		char *p;
 		for (p= seq->vector.self.ch; start < end; start++) {
 			ecl_write_char(p[start], stream);
 		}
@@ -1602,7 +1602,7 @@
 		stream = stream->stream.object0;
 		goto AGAIN;
 	} else {
-		unsigned char *p;
+		char *p;
 		for (p = seq->vector.self.ch; start < end; start++) {
 			int c = ecl_read_char(stream);
 			if (c == EOF)