diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index d199ca65871..bed8af0e050 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-14  Tom Rix  <trix@redhat.com>
+
+	* config/rs6000/rs6000.md: Fix typo with sradi.
+
 2002-01-14  Ulrich Weigand  <uweigand@de.ibm.com>
 
 	* config/s390/s390.md (movstrdix_64, movstrsix_31, movstrdi_64,
diff --git a/gcc/config/rs6000/rs6000.md b/gcc/config/rs6000/rs6000.md
index 38bd1dd0241..a33512b8a5b 100644
--- a/gcc/config/rs6000/rs6000.md
+++ b/gcc/config/rs6000/rs6000.md
@@ -12573,7 +12573,7 @@
 	(neg:DI (gt:DI (match_operand:DI 1 "gpc_reg_operand" "r")
 		       (const_int 0))))]
   "TARGET_POWERPC64"
-  "subfic %0,%1,0\;addme %0,%0\;sradi} %0,%0,63"
+  "subfic %0,%1,0\;addme %0,%0\;sradi %0,%0,63"
   [(set_attr "length" "12")])
 
 (define_insn ""