*** luatex.web.orig	2007-08-06 22:07:43.000000000 +0200
--- luatex.web	2007-08-06 22:08:58.000000000 +0200
***************
*** 3844,3850 ****
  function glyph_width(@!p:halfword):pointer;
  var w:integer;
  begin
!   w := char_width(font(p),character(p)); { + x_displace(p); }
    glyph_width := w;
  end;
  @#
--- 3844,3850 ----
  function glyph_width(@!p:halfword):pointer;
  var w:integer;
  begin
!   w := char_width(font(p),character(p)); { $+ x_displace(p)$; }
    glyph_width := w;
  end;
  @#
***************
*** 19565,19571 ****
    case font_direction(dvi_direction) of
    dir__LT: begin
      pdf_set_rule(cur_h, cur_v, rule_wd, rule_ht);
!     {pdf_dvicmd_left(rule_wd);}
      end;
    dir__LB: begin
      pdf_dvicmd_down(rule_ht);
--- 19565,19571 ----
    case font_direction(dvi_direction) of
    dir__LT: begin
      pdf_set_rule(cur_h, cur_v, rule_wd, rule_ht);
!     {$pdf_dvicmd_left(rule_wd)$;}
      end;
    dir__LB: begin
      pdf_dvicmd_down(rule_ht);