diff --git a/src/ChangeLog b/src/ChangeLog
index fc4d97d5623..f55149f7bd1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-06  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* fns.c (copy_hash_table): Remove unused variable `v'.
+
 2001-11-05  Richard M. Stallman  <rms@gnu.org>
 
 	* m/news-risc.h (BROKEN_PROTOTYPES): Defined.
diff --git a/src/fns.c b/src/fns.c
index 880886071de..621d19fbbcc 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -4151,7 +4151,7 @@ copy_hash_table (h1)
 {
   Lisp_Object table;
   struct Lisp_Hash_Table *h2;
-  struct Lisp_Vector *v, *next;
+  struct Lisp_Vector *next;
 
   h2 = allocate_hash_table ();
   next = h2->vec_next;