diff --git a/ChangeLog b/ChangeLog
index 4ee05ecc0..4efedbe4e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2009-11-15  Werner Lemberg  <wl@gnu.org>
+
+	Add tracing messages for advance values.
+
+	* src/base/ftobjs.c (FT_Load_Glyph), src/truetype/ttgload.c
+	(TT_Get_HMetrics, TT_Get_VMetrics): Do it.
+
 2009-11-08  Werner Lemberg  <wl@gnu.org>
 
 	Fix compiler warning.
diff --git a/src/base/ftobjs.c b/src/base/ftobjs.c
index 6fb2a8dd7..c74976a35 100644
--- a/src/base/ftobjs.c
+++ b/src/base/ftobjs.c
@@ -744,6 +744,12 @@
       }
     }
 
+    FT_TRACE5(( "  x advance: %d\n" , slot->advance.x ));
+    FT_TRACE5(( "  y advance: %d\n" , slot->advance.y ));
+
+    FT_TRACE5(( "  linear x advance: %d\n" , slot->linearHoriAdvance ));
+    FT_TRACE5(( "  linear y advance: %d\n" , slot->linearVertAdvance ));
+
     /* do we need to render the image now? */
     if ( !error                                    &&
          slot->format != FT_GLYPH_FORMAT_BITMAP    &&
diff --git a/src/truetype/ttgload.c b/src/truetype/ttgload.c
index aa3f04020..1a32ec30c 100644
--- a/src/truetype/ttgload.c
+++ b/src/truetype/ttgload.c
@@ -80,6 +80,9 @@
 
     if ( check && face->postscript.isFixedPitch )
       *aw = face->horizontal.advance_Width_Max;
+
+    FT_TRACE5(( "  advance width (font units): %d\n", *aw ));
+    FT_TRACE5(( "  left side bearing (font units): %d\n", *lsb ));
   }
 
 
@@ -131,6 +134,8 @@
 
 #endif
 
+    FT_TRACE5(( "  advance height (font units): %d\n", *ah ));
+    FT_TRACE5(( "  top side bearing (font units): %d\n", *tsb ));
   }