diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 773cf69b02..a242248109 100644
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,9 @@
+2000-03-11  Alan Modra  <alan@spri.levels.unisa.edu.au>
+
+	* ieee.c (ieee_archive_p): Return bfd_error_wrong_format on 
+	a format mismatch rather than an "error" from bfd_read such as
+	bfd_error_file_truncated.
+
 2000-03-10  Geoff Keating  <geoffk@cygnus.com>
 
 	* elf32-mips.c (_bfd_mips_elf_relocate_section): Do proper
diff --git a/bfd/ieee.c b/bfd/ieee.c
index 989d7243cb..82b3bac836 100644
--- a/bfd/ieee.c
+++ b/bfd/ieee.c
@@ -1336,7 +1336,7 @@ ieee_archive_p (abfd)
   if (this_byte (&(ieee->h)) != Module_Beginning)
     {
       abfd->tdata.ieee_ar_data = save;
-      goto error_return;
+      goto got_wrong_format_error;
     }
 
   next_byte (&(ieee->h));
@@ -1345,7 +1345,7 @@ ieee_archive_p (abfd)
     {
       bfd_release (abfd, ieee);
       abfd->tdata.ieee_ar_data = save;
-      goto error_return;
+      goto got_wrong_format_error;
     }
   /* Throw away the filename */
   read_id (&(ieee->h));
@@ -1448,6 +1448,8 @@ ieee_archive_p (abfd)
 
   return abfd->xvec;
 
+ got_wrong_format_error:
+  bfd_set_error (bfd_error_wrong_format);
  error_return:
   if (elts != NULL)
     free (elts);