diff --git a/imlac/imlac_pt.c b/imlac/imlac_pt.c
index dcf23d51..40274371 100644
--- a/imlac/imlac_pt.c
+++ b/imlac/imlac_pt.c
@@ -92,7 +92,6 @@ static t_stat
 ptr_svc (UNIT *uptr)
 {
   unsigned char ch;
-  uint16 flag;
 
   /* This function is called when the motor is on.  The data ready
      flag toggles on and off when the tape goes past the read head. */