X509 Subject Formatting

 to prevent this issue, you can replace lines 13 to 20 with:

array set dn [list]
foreach {key val} [ split [string map {"\\," "\\," "," "|" "\\=" "\\=" "=" "|"} $subject] "|"] {
    lappend dn([string trim $key]) [string trim $val]
}