diff --git a/src/c/file.d b/src/c/file.d
index 0f179c1dd..b6d55f4d2 100644
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -1465,7 +1465,7 @@ ecl_make_string_output_stream(cl_index line_length, int extended)
 		ecl_alloc_adjustable_extended_string(line_length) :
 		ecl_alloc_adjustable_base_string(line_length);
 #else
-	cl_object s = cl_alloc_adjustable_base_string(line_length);
+	cl_object s = ecl_alloc_adjustable_base_string(line_length);
 #endif
 	return si_make_string_output_stream_from_string(s);
 }
diff --git a/src/c/format.d b/src/c/format.d
index 91c11052e..379c8c748 100644
--- a/src/c/format.d
+++ b/src/c/format.d
@@ -2108,7 +2108,7 @@ DIRECTIVE:
 #ifdef ECL_UNICODE
 		strm = ecl_alloc_adjustable_extended_string(64);
 #else
-		strm = cl_alloc_adjustable_base_string(64);
+		strm = ecl_alloc_adjustable_base_string(64);
 #endif
 		null_strm = 1;
 	} else if (strm == Ct) {
diff --git a/src/c/read.d b/src/c/read.d
index a48d1b8d3..d882fbcb7 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -60,7 +60,7 @@ si_get_buffer_string()
 #ifdef ECL_UNICODE
 		output = ecl_alloc_adjustable_extended_string(ECL_BUFFER_STRING_SIZE);
 #else
-		output = cl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
+		output = ecl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
 #endif
 	} else {
 		output = CAR(pool);
@@ -87,7 +87,7 @@ si_put_buffer_string(cl_object string)
 #ifdef ECL_UNICODE
 				string = ecl_alloc_adjustable_extended_string(ECL_BUFFER_STRING_SIZE);
 #else
-				string = cl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
+				string = ecl_alloc_adjustable_base_string(ECL_BUFFER_STRING_SIZE);
 #endif
 			}
 			TOKEN_STRING_FILLP(string) = l+1;