diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 8af58554aaae..39a02682b81b 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Sat Apr 24 23:15:57 1999  Donn Terry (donn@interix.com)
+
+	* alpha.md (call_value_nt): Correct subscripts.
+
 Sat Apr 24 20:49:20 1999  Richard Henderson  <rth@cygnus.com>
 
 	* alpha.h (PRINT_OPERAND_ADDRESS): Break out to ...
diff --git a/gcc/config/alpha/alpha.md b/gcc/config/alpha/alpha.md
index dbc8b33d18e7..406f350c82dd 100644
--- a/gcc/config/alpha/alpha.md
+++ b/gcc/config/alpha/alpha.md
@@ -3642,7 +3642,7 @@
     abort ();
 
   operands[1] = XEXP (operands[1], 0);
-  if (GET_CODE (operands[0]) != SYMBOL_REF && GET_CODE (operands[0]) != REG)
+  if (GET_CODE (operands[1]) != SYMBOL_REF && GET_CODE (operands[1]) != REG)
     operands[1] = force_reg (DImode, operands[1]);
 }")