Sub Articulo 89.1

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