diff --git a/src/c/typespec.d b/src/c/typespec.d
index fa89572b7..ce3a23526 100644
--- a/src/c/typespec.d
+++ b/src/c/typespec.d
@@ -90,9 +90,9 @@ cl_object
 ecl_type_error(cl_object function, const char *place, cl_object o,
                cl_object type)
 {
-  si_wrong_type_argument(4, o, type,
-                         (*place? make_constant_base_string(place) : ECL_NIL),
-                         function);
+  return si_wrong_type_argument(4, o, type,
+                                (*place? make_constant_base_string(place) : ECL_NIL),
+                                function);
 }
 
 /**********************************************************************/