diff --git a/src/c/cinit.d b/src/c/cinit.d
index 70755bce2..22144b959 100644
--- a/src/c/cinit.d
+++ b/src/c/cinit.d
@@ -110,8 +110,9 @@ si_signal_simple_error(cl_narg narg, cl_object condition, cl_object continuable,
   cl_object rest;
   ecl_va_start(args, format_args, narg, 4);
   rest = cl_grab_rest_args(args);
-  return cl_apply(6, @'si::signal-simple-error', condition, continuable,
-                  format, format_args, rest);
+  cl_apply(6, @'si::signal-simple-error', condition, continuable,
+           format, format_args, rest);
+  _ecl_unexpected_return();
 }
 
 extern cl_object