WPTools version 6.13

...
      a.FPrevPar := b;
      a.FNextPar := next_par;
    end;
    (* patch start *)
    if next_par <> nil then next_par.FPrevPar := a;
    (* patch end *)
  end;
end;

Regards
patrik.nyborg(a)genicore.se
[/code]