diff --git a/src/c/file.d b/src/c/file.d
index edb5299d7..5eac897a7 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -3987,7 +3987,7 @@ stream_dispatch_table(cl_object strm)
 	}
 #endif
 	if (type_of(strm) != t_stream)
-		FEtype_error_stream(strm);
+		FEwrong_type_argument(@[stream], strm);
 	return (const struct ecl_file_ops *)strm->stream.ops;
 }
 
diff --git a/src/c/typespec.d b/src/c/typespec.d
index a9c000fb3..bfa96c531 100644
--- a/src/c/typespec.d
+++ b/src/c/typespec.d
@@ -64,12 +64,6 @@ FEtype_error_array(cl_object v)
 	FEwrong_type_argument(@[array], v);
 }
 
-void
-FEtype_error_stream(cl_object strm)
-{
-	FEwrong_type_argument(@[stream], strm);
-}
-
 void
 FEtype_error_sequence(cl_object x) {
 	FEwrong_type_argument(@[sequence], x);
diff --git a/src/h/external.h b/src/h/external.h
index 085528e77..ca132d148 100755
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -1692,7 +1692,6 @@ extern ECL_API cl_object cl_type_of(cl_object x);
 extern ECL_API void FEtype_error_cons(cl_object x) ecl_attr_noreturn;
 extern ECL_API void FEtype_error_list(cl_object x) ecl_attr_noreturn;
 extern ECL_API void FEtype_error_proper_list(cl_object x) ecl_attr_noreturn;
-extern ECL_API void FEtype_error_stream(cl_object x) ecl_attr_noreturn;
 extern ECL_API void FEtype_error_sequence(cl_object x) ecl_attr_noreturn;
 extern ECL_API void FEcircular_list(cl_object x) ecl_attr_noreturn;
 extern ECL_API void FEtype_error_index(cl_object seq, cl_object ndx) ecl_attr_noreturn;