diff --git a/src/lisp/interr.c b/src/lisp/interr.c
index ecdcbc0a464087d3bd80102a1624f5b565039de2..57e18f204c3f330cc44f45c2f50076581a24786c 100644
--- a/src/lisp/interr.c
+++ b/src/lisp/interr.c
@@ -174,7 +174,6 @@ debug_print(lispobj object)
         if ((unsigned long) lisp_string->header == type_SimpleString) {
             unsigned short int* lisp_chars;
             int len;
-            int k;
 
             len = lisp_string->length >> 2;
             lisp_chars = (unsigned short int*) lisp_string->data;