Sub Articulo 89.1
Add the \catcode`"=\active line just before the definition
and \catcode`"=12 just after.