Конфликт между вавилонским ивритом и араби

Question

Рассмотрим следующий MWE:

\documentclass[
    hebrew,% breaks
    farsi,% or arabic
%   hebrew,% compiles
    english]{article}

\usepackage[LAE,LFE,T1]{fontenc}
\usepackage[cp1255,utf8,latin9]{inputenc}

\usepackage{babel}

\begin{document}

Hello.

\end{document}

Это противоречит

! Argument of \o@everypar has an extra }. <inserted text> 
                 \par  l.126    \n@everypar\expandafter{\the\o@everypar}

Однако если hebrewон загружен после farsi, то он компилируется нормально.

Мне кажется, это связано с переопределением в rlbabel.def(используемом в иврите), которое несовместимо с переопределением в arabicore.sty(используемом в фарси).

rlbabel.defимеет:

\def\rl@everypar{\if@rl{\setbox\z@\lastbox\beginR\usebox\z@}\fi}
\let\o@everypar=\everypar
\def\everypar#1{\o@everypar{\rl@everypar#1}}

и arabicore.sty:

\def\Arabi@rl@everypar{\if@rl{\setbox\z@\lastbox\beginR\usebox\z@}\fi} 
   \let\o@everypar=\everypar 
   \newtoks\n@everypar 
   \n@everypar\expandafter{\the\o@everypar} 
   \o@everypar{\Arabi@rl@everypar\the\n@everypar} 
   \let\everypar=\n@everypar 

Я прав, что проблема в предыдущем определении, которое добавляет аргумент к \everypar? Как это можно исправить наиболее элегантно? Даже если оба пакета не видели обновлений в течение некоторого времени, я хотел бы отправить отчет об ошибке, но я не уверен, в каком пакете. Подсказки очень приветствуются.

(Я знаю, что сейчас можно использовать LuaTeX/XeTeX, но сейчас это не так. Я действительно пытаюсь помочь исправить этот конкретный случай)

РЕДАКТИРОВАТЬ:Это будет моей скромной попыткой. Это исправляет компиляцию, но я не уверен, что это действительно то, что делала оригинальная версия:

--- /tmp/meld-tmprm047c5p
+++ /home/juergen/texmf/tex/generic/babel/rlbabel.def
@@ -136,8 +136,11 @@
 \def\@ensure@R#1{\if@rl#1\else\R{#1}\fi}
 \def\@ensure@L#1{\if@rl\L{#1}\else#1\fi}
 \def\rl@everypar{\if@rl{\setbox\z@\lastbox\beginR\usebox\z@}\fi}
-\let\o@everypar=\everypar
-\def\everypar#1{\o@everypar{\rl@everypar#1}}
+\let\rl@o@everypar=\everypar
+\newtoks\rl@n@everypar
+\rl@n@everypar\expandafter{\the\rl@o@everypar}
+\rl@o@everypar{\rl@everypar\the\rl@n@everypar}
+\let\everypar=\rl@n@everypar
 \newcommand{\hmbox}[1]{\mbox{\R{#1}}}
 \newcommand{\embox}[1]{\mbox{\L{#1}}}
 \def\@brackets#1#2#3{\protect\if@rl #3#2#1\protect\else
@@ -289,7 +292,7 @@
        \large \bfseries #1\hfil \hb@xt@\@pnumwidth{\hss#2}}\par
        \nobreak
          \global\@nobreaktrue
-         \everypar{\global\@nobreakfalse\everypar{}}%
+         \def\rl@everypar{\global\@nobreakfalse\if@rl{\setbox\z@\lastbox\beginR\usebox\z@}\fi}%
     \endgroup
   \fi}}}
 \@ifclassloaded{article}{% article class