--- freetype-1.3.1/freetype1-contrib/ttf2pk/ttfaux.c~	2000-04-14 18:53:50.000000000 +0100
+++ freetype-1.3.1/freetype1-contrib/ttf2pk/ttfaux.c	2005-12-30 17:49:46.000000000 +0000
@@ -74,7 +74,7 @@
 readttf_kern(Font *fnt)
 {
   register kern *nk;
-  register ttfinfo *ti;
+  register ttfinfo *ti, *tiright;
   TT_Kern_0_Pair* pairs0;
   TT_Error error;
   unsigned int i, j;
@@ -98,12 +98,13 @@
       for (j = 0; j < directory.tables[i].t.kern0.nPairs; j++, pairs0++)
       {
         ti = findglyph(pairs0->left, fnt->charlist);
-        if (ti == NULL)
+        tiright = findglyph(pairs0->right, fnt->charlist);
+        if (ti == NULL || tiright == NULL)
           warning("kern char not found");
         else
         {
           nk = newkern();
-          nk->succ = findglyph(pairs0->right, fnt->charlist)->adobename;
+          nk->succ = tiright->adobename;
           nk->delta = transform(pairs0->value * 1000 / fnt->units_per_em, 0,
                                 fnt->efactor, fnt->slant);
           nk->next = ti->kerns;