<..equations of amsmath.sty..>+
\def\make@df@tag@@#1{%
\gdef\df@tag{\maketag@@@{#1}\def\@currentlabel{#1}%
<.def :currentlabel for make@df@tag.>%
\anc:lbl r{}%
}}
\def\make@df@tag@@@#1{\gdef\df@tag{\tagform@{#1}%
\toks@\@xp{\p@equation{#1}}\edef\@currentlabel{\the\toks@}%
<.def :currentlabel for make@df@tag.>%
\anc:lbl r{}%
}}
-_-_-