diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index cd6e64548e4..7a7f13bd576 100644
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,5 +1,8 @@
 2000-05-08  Alan Modra  <alan@linuxcare.com.au>
 
+	* trad-core.c (trad_unix_core_file_p): Return
+	bfd_error_wrong_format rather than bfd_error_file_truncated.
+
 	* peigen.c (_bfd_pei_swap_aouthdr_out): Pass ImageBase to
 	add_data_entry.  DataDirectory virtual address is relative.
 	(pe_print_idata): Account for relative DataDirectory virtual
diff --git a/bfd/trad-core.c b/bfd/trad-core.c
index 633c53d9838..aea6366795b 100644
--- a/bfd/trad-core.c
+++ b/bfd/trad-core.c
@@ -112,7 +112,7 @@ trad_unix_core_file_p (abfd)
 				 + u.u_ssize))
 	> (unsigned long) statbuf.st_size)
       {
-	bfd_set_error (bfd_error_file_truncated);
+	bfd_set_error (bfd_error_wrong_format);
 	return 0;
       }
 #ifndef TRAD_CORE_ALLOW_ANY_EXTRA_SIZE