Hello,

In func

proc ::htmlparse::mapEscapes

line: return [subst $new]
should change to:
   return [subst -nobackslashes -novariables $new]

If not, if new has a backslash \, the subs breaks the 
string (specially noted in paths on Windows)

-------
In func

::htmlparse::Reorder

Lines:
    if {
       $sibling == {} ||
       (![string compare $tp [$tree get $sibling type]])
                 } {
                     break
                 }
Should change to:
       if { $sibling == "" } { break }
       if { [lsearch "h1 h2 h3 h4 h5 h6 p li" [$tree get
                 $sibling type]] != -1 } {
    break
     }

  Second option is less agressive when reordering tags.

  Regards,

  Ramon Ribó
  ramsan@cimne.upc.es

Logged In: YES 
user_id=75003

Mostly accepted. The changes to mapEscapes are outdated,
this was fixed in a different way, by an additional quoting
step protecting Tcl's special characters.

Reordering advice taken.

Examples are in the testsuite, actually. The relevant
testcases have been updated.

Logged In: YES 
user_id=75003

Do you have small examples which demonstrate the bad
behaviour ? They would also become test cases.

File Added - 87140: htmlparse.tcl