diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 2be4f288d1..c796c70fd0 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-20  Elena Zannoni  <ezannoni@redhat.com>
+
+        * rs6000-nat.c (fetch_register): Don't error out unless the
+        register number is really bogus.
+
 2001-12-20  Michael Snyder  <msnyder@redhat.com>
 
 	* maint.c (maintenance_info_sections): Accept new argument
diff --git a/gdb/rs6000-nat.c b/gdb/rs6000-nat.c
index 1f2e1f7cfd..12229cddc0 100644
--- a/gdb/rs6000-nat.c
+++ b/gdb/rs6000-nat.c
@@ -206,9 +206,12 @@ fetch_register (int regno)
 
   /* Bogus register number. */
   else if (regno > LAST_UISA_SP_REGNUM)
-    fprintf_unfiltered (gdb_stderr,
-			"gdb error: register no %d not implemented.\n",
-			regno);
+    {
+      if (regno >= NUM_REGS)
+	fprintf_unfiltered (gdb_stderr,
+			    "gdb error: register no %d not implemented.\n",
+			    regno);
+    }
 
   /* Fixed-point registers. */
   else