diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index ec8504bd9aa5..55502f7e4ce9 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-28  Will Cohen  <wcohen@redhat.com>
+
+	* config/rs6000/rs6000.md (store_multiple): Correct RTL
+	generation for first set.
+
 2001-08-27  Roman Zippel  <zippel@linux-m68k.org>
 
 	* flow.c (redirect_edge_succ_nodup): Return new edge.
diff --git a/gcc/config/rs6000/rs6000.md b/gcc/config/rs6000/rs6000.md
index d116a6353843..5cb537d1b86b 100644
--- a/gcc/config/rs6000/rs6000.md
+++ b/gcc/config/rs6000/rs6000.md
@@ -8302,7 +8302,7 @@
   op0 = replace_equiv_address (operands[0], to);
 
   XVECEXP (operands[3], 0, 0)
-    = gen_rtx_SET (VOIDmode, op0, operands[1]);
+    = gen_rtx_SET (VOIDmode, adjust_address (op0, SImode, 0), operands[1]);
   XVECEXP (operands[3], 0, 1) = gen_rtx_CLOBBER (VOIDmode,
 						 gen_rtx_SCRATCH (SImode));