diff --git a/gas/ChangeLog b/gas/ChangeLog
index 11fef9a582..40437bb567 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-20  Martin Schwidefsky  <schwidefsky@de.ibm.com>
+
+	* config/tc-s390.c (md_apply_fix3): Emit error message for relocations
+	with a subsy symbol.
+
 2003-01-17  Stephane Carrez  <stcarrez@nerim.fr>
 
 	* config/tc-m68hc11.c (tc_m68hc11_fix_adjustable): Prevent adjustment
diff --git a/gas/config/tc-s390.c b/gas/config/tc-s390.c
index 5e4eeedb14..b7de6faa14 100644
--- a/gas/config/tc-s390.c
+++ b/gas/config/tc-s390.c
@@ -1702,7 +1702,10 @@ md_apply_fix3 (fixP, valP, seg)
   where = fixP->fx_frag->fr_literal + fixP->fx_where;
 
   if (fixP->fx_subsy != NULL)
-    abort ();
+    as_bad_where (fixP->fx_file, fixP->fx_line,
+		  "cannot emit relocation %s against subsy symbol %s",
+		  bfd_get_reloc_code_name (fixP->fx_r_type),
+		  S_GET_NAME (fixP->fx_subsy));
 
   if (fixP->fx_addsy != NULL)
     {