diff --git a/ChangeLog b/ChangeLog
index b118200db..dc91ab546 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2020-08-22  Werner Lemberg  <wl@gnu.org>
+
+	* src/truetype/ttgload.c (TT_Get_VMetrics): Add tracing message.
+
 2020-08-05  Alexei Podtelezhnikov  <apodtele@gmail.com>
 
 	[truetype] Retain OVERLAP_SIMPLE and OVERLAP_COMPOUND.
diff --git a/src/truetype/ttgload.c b/src/truetype/ttgload.c
index 126c1e9f8..1dd319dcb 100644
--- a/src/truetype/ttgload.c
+++ b/src/truetype/ttgload.c
@@ -137,6 +137,11 @@
                                 face->horizontal.Descender );
     }
 
+#ifdef FT_DEBUG_LEVEL_TRACE
+    if ( !face->vertical_info )
+      FT_TRACE5(( "  [vertical metrics missing, computing values]\n" ));
+#endif
+
     FT_TRACE5(( "  advance height (font units): %d\n", *ah ));
     FT_TRACE5(( "  top side bearing (font units): %d\n", *tsb ));
   }