diff --git a/src/testtool.c b/src/testtool.c
index 7ec32a6..1f49fd0 100644
--- a/src/testtool.c
+++ b/src/testtool.c
@@ -1235,7 +1235,6 @@ void dtd_chain(DLword type) {
 void check_dtd_chain(DLword type)
 {
   LispPTR next, onext;
-  LispPTR before;
 
   onext = 0;
   next = ((struct dtd *)GetDTD(type))->dtd_free;