diff --git a/src/c/array.d b/src/c/array.d
index ec32db147..2e10290d2 100644
--- a/src/c/array.d
+++ b/src/c/array.d
@@ -540,7 +540,7 @@ ecl_symbol_to_elttype(cl_object x)
 	else if (x == Cnil) {
 		FEerror("ECL does not support arrays with element type NIL", 0);
 	}
-	x = cl_funcall(2, @'upgraded-array-element-type', x);
+	x = cl_upgraded_array_element_type(1, x);
 	goto BEGIN;
 }
 
diff --git a/src/c/cinit.d b/src/c/cinit.d
index 5696c625a..0bd6153d4 100644
--- a/src/c/cinit.d
+++ b/src/c/cinit.d
@@ -28,6 +28,12 @@
  * called instead.
  */
 
+extern cl_object
+cl_upgraded_array_element_type(cl_narg narg, cl_object type, ...)
+{
+	return cl_funcall(2, @'upgraded-array-element-type', type);
+}
+
 extern cl_object
 si_safe_eval(cl_narg arg, cl_object form, cl_object env, cl_object error_value, ...)
 {