Index: Embedded.tcl
==================================================================
--- Embedded.tcl
+++ Embedded.tcl
@@ -53,11 +53,11 @@
 		}
 		::log::log $level [uplevel 1 [list subst $text]]
 	}
 }
 
-package provide WS::Embeded 2.7.0
+package provide WS::Embeded 2.7.2
 
 namespace eval ::WS::Embeded {
 
     array set portInfo {}
 
@@ -259,10 +259,11 @@
 #                       adding a complete entry at the bottom of the list.
 #
 # Version     Date     Programmer   Comments / Changes / Reasons
 # -------  ----------  ----------   -------------------------------------------
 #       1  03/28/2008  G.Lester     Initial version
+# 2.7.2    2021-03-23  H.Oehlmann   Fix bug: pfx subject had added ")".
 #
 #
 ###########################################################################
 proc ::WS::Embeded::Listen {port {certfile {}} {keyfile {}} {userpwds {}} {realm {}}} {
     variable portInfo
@@ -310,11 +311,11 @@
             }
             # Create certificate selection tring
             if {$pfxsubject eq ""} {
                 set pfxselection any
             } else {
-                set pfxselection [list subject_substring $pfxsubject)]
+                set pfxselection [list subject_substring $pfxsubject]
             }
             
             set hFile [open $certfile rb]
             set PFXCur [read $hFile]
             close $hFile
@@ -355,11 +356,11 @@
                 return -options  $errordict $errormsg
             }
         } else {
             
             ##
-            ## Use TCL Package
+            ## Use TLS Package
             ##
             
             package require tls
     
             ::tls::init \
@@ -728,11 +729,10 @@
     variable portInfo
 
     upvar #0 ::WS::Embeded::Httpd$sock dataArray
     ::log::logsubst info {Receviced request on $port for $ip:$clientport}
 
-    array unset dataArray reply
     chan configure $sock -translation crlf
     if {1 == [catch {
         gets $sock line
         ::log::logsubst debug {Request is: $line}
         set auth {}
@@ -806,10 +806,11 @@
         catch {respond $sock 500 "Server Error"}
     }
 
     catch {flush $sock}
     catch {close $sock}
+    array unset dataArray
     return
 }
 
 
 

Index: pkgIndex.tcl
==================================================================
--- pkgIndex.tcl
+++ pkgIndex.tcl
@@ -9,10 +9,10 @@
 # full path name of this file's directory.
 
 package ifneeded WS::AOLserver 2.4.0 [list source [file join $dir AOLserver.tcl]]
 package ifneeded WS::Channel 2.4.0 [list source [file join $dir ChannelServer.tcl]]
 package ifneeded WS::Client 2.6.3 [list source [file join $dir ClientSide.tcl]]
-package ifneeded WS::Embeded 2.7.0 [list source [file join $dir Embedded.tcl]]
+package ifneeded WS::Embeded 2.7.2 [list source [file join $dir Embedded.tcl]]
 package ifneeded WS::Server 2.7.0 [list source [file join $dir ServerSide.tcl]]
 package ifneeded WS::Utils 2.6.2 [list source [file join $dir Utilities.tcl]]
 package ifneeded WS::Wub 2.4.0 [list source [file join $dir WubServer.tcl]]
 package ifneeded Wsdl 2.4.0 [list source [file join $dir WubServer.tcl]]