diff --git a/ChangeLog b/ChangeLog
index f620bed82..d24261648 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2015-03-06  Werner Lemberg  <wl@gnu.org>
+
+	* src/sfnt/ttload.c (tt_face_load_font_dir): Fix compiler warning.
+
+	Found by Alexei.
+
 2015-03-05  Alexei Podtelezhnikov <apodtele@gmail.com>
 
 	* src/base/ftstroke.c: Simplify.
diff --git a/src/sfnt/ttload.c b/src/sfnt/ttload.c
index 5fed0b2c3..ad2975de0 100644
--- a/src/sfnt/ttload.c
+++ b/src/sfnt/ttload.c
@@ -417,7 +417,9 @@
         if ( entry->Tag == TTAG_hmtx ||
              entry->Tag == TTAG_vmtx )
         {
+#ifdef FT_DEBUG_LEVEL_TRACE
           FT_ULong  old_length = entry->Length;
+#endif
 
 
           /* make metrics table length a multiple of 4 */