diff --git a/src/lists.c b/src/lists.c
index c475736a..5c5dc288 100644
--- a/src/lists.c
+++ b/src/lists.c
@@ -1112,16 +1112,13 @@ lrmv_d ( LISTID lid, void * data_ptr )
 {
   LIST * l;
   LISTNODE * ln;
-  int i;
 
   l = (LIST *)lid;
 
   CKLMAGIC(l);
 
-  i = 0;
   ln = l->top;
   while (ln && (ln->data != data_ptr)) {
-    i++;
     CKMAGIC(ln);
     ln = ln->next;
   }