diff --git a/ChangeLog b/ChangeLog
index 8afac74..e236039 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2021-06-09  Alexei Podtelezhnikov  <apodtele@gmail.com>
 
+	* src/truetype/ttinterp.c (TT_RunIns): Optimize tracing. 
+
+2021-06-09  Alexei Podtelezhnikov  <apodtele@gmail.com>
+
 	[sdf] Fix SDF positioning.
 
 	* src/sdf/ftsdfrend.c (ft_sdf_render, ft_bsdf_render): Add padding to
diff --git a/src/truetype/ttinterp.c b/src/truetype/ttinterp.c
index 1b2ba7b..6747f94 100644
--- a/src/truetype/ttinterp.c
+++ b/src/truetype/ttinterp.c
@@ -7922,6 +7922,7 @@
       exc->opcode = exc->code[exc->IP];
 
 #ifdef FT_DEBUG_LEVEL_TRACE
+      if ( ft_trace_levels[trace_ttinterp] >= 6 )
       {
         FT_Long  cnt = FT_MIN( 8, exc->top );
         FT_Long  n;