diff --git a/gas/ChangeLog b/gas/ChangeLog
index 3b83366b7ba..3c8622c2ec8 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-12  Andreas Schwab  <schwab@suse.de>
+
+	* config/tc-ia64.c (fixup_unw_records): Clear region when seeing a
+	body record so that an error is given for misplaced .save
+	pseudo-ops.
+
 2002-03-09  Alan Modra  <amodra@bigpond.net.au>
 
 	* config/tc-i386.h (REX_OPCODE): Define.
diff --git a/gas/config/tc-ia64.c b/gas/config/tc-ia64.c
index 88905b87ed0..fbb166f0fc0 100644
--- a/gas/config/tc-ia64.c
+++ b/gas/config/tc-ia64.c
@@ -2709,7 +2709,11 @@ fixup_unw_records (list)
 	    size = (slot_index (last_addr, last_frag, first_addr, first_frag)
 		    + dir_len);
 	    rlen = ptr->r.record.r.rlen = size;
-	    region = ptr;
+	    if (ptr->r.type == body)
+	      /* End of region.  */
+	      region = 0;
+	    else
+	      region = ptr;
 	    break;
 	  }
 	case epilogue: