285,288c285,298

<          -- complete the parse straightaway.

<          ( do (tok TokAnyClose +++ tok TokEndClose)

<               trace (e++"[+]") (return ())

<               return ([], Elem e avs []))

---

>            -- complete the parse straightaway.

>            (( do tok TokEndClose

>                  trace (e++"[+]") (return ())

>                  return ([], Elem e avs [])) +++

>             ( do tok TokAnyClose  

>                  trace (e++"[+") (return ())

> 	         n <- bracket (tok TokEndOpen) name (tok TokAnyClose)

>                  trace "]" (return ())

>                  if e == (map toUpper n :: Name) 

> 	           then return ([], Elem e avs [])      

>                    else return (error "no nesting in empty tag")) +++

> 	       do tok TokAnyClose

> 	          trace (e++"[+]") (return ())

>                   return ([], Elem e avs []))

