diff --git a/src/c/alloc.d b/src/c/alloc.d
index 94e14f6b8..81498e2b6 100644
--- a/src/c/alloc.d
+++ b/src/c/alloc.d
@@ -454,7 +454,7 @@ CALL_GC:
 		goto ONCE_MORE;
 	}
 	GC_disable();
-	{ cl_object s = make_simple_base_string(tm_table[(int)t].tm_name+1);
+	{ cl_object s = ecl_make_simple_base_string(tm_table[(int)t].tm_name+1, -1);
 	GC_enable();
 	CEerror(Ct, "The storage for ~A is exhausted.~%\
 Currently, ~D pages are allocated.~%\
diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 0fac5d519..184af59e8 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -417,7 +417,7 @@ filesystem or in the database of ASDF modules."
 		   (wt-filtered-data (write-to-string epilogue-code) stream)
 		   (princ ";
 cl_object output;
-si_select_package(make_simple_base_string(\"CL-USER\"));
+si_select_package(ecl_make_simple_base_string(\"CL-USER\", 7));
 output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
 }" stream)
 		   )))))
@@ -433,7 +433,7 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
 		   (wt-filtered-data (write-to-string prologue-code) stream)
 		   (princ ";
 cl_object output;
-si_select_package(make_simple_base_string(\"CL-USER\"));
+si_select_package(ecl_make_simple_base_string(\"CL-USER\", 7));
 output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
 }" stream)
 		   )))))
diff --git a/src/new-cmp/cmpmain.lsp b/src/new-cmp/cmpmain.lsp
index a7579da54..d9e50da55 100644
--- a/src/new-cmp/cmpmain.lsp
+++ b/src/new-cmp/cmpmain.lsp
@@ -309,7 +309,7 @@ filesystem or in the database of ASDF modules."
 		   (wt-filtered-data (write-to-string epilogue-code) stream)
 		   (princ ";
 cl_object output;
-si_select_package(make_simple_base_string(\"CL-USER\"));
+si_select_package(ecl_make_simple_base_string(\"CL-USER\",7));
 output = cl_safe_eval(c_string_to_object(lisp_code), Cnil, OBJNULL);
 " stream)
 		   (when (eq target :program)