diff --git a/src/c/file.d b/src/c/file.d
index 41301948c..a326fdf4f 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -1633,7 +1633,7 @@ ecl_make_string_input_stream(cl_object strng, cl_index istart, cl_index iend)
 	strm->stream.flags = ECL_STREAM_DEFAULT_FORMAT;
 	strm->stream.byte_size = 8;
 #else
-	if (ECL_BASE_STRING_P(string) == t_base_string) {
+	if (ECL_BASE_STRING_P(strng) == t_base_string) {
 		strm->stream.format = @':latin-1';
 		strm->stream.flags = ECL_STREAM_LATIN_1;
 		strm->stream.byte_size = 8;