diff --git a/src/dtm-katie.adb b/src/dtm-katie.adb
index 2804a35..c5855a5 100644
--- a/src/dtm-katie.adb
+++ b/src/dtm-katie.adb
@@ -15,7 +15,6 @@ package body Dtm.Katie is
          end if;
          return Raw_Value;
       end Strip_CR;
-      Count : Natural := 0;
    begin
       for Element of Data loop
          Element := Dtm_Value'Value(Strip_CR(Get_Line(File)));