From 7834acd2e42f731cb81a37176d8c8cbc371e43f0 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 18 Mar 2023 09:07:20 +0000
Subject: one too much "-profile tcl8"

---
 library/http/http.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/http/http.tcl b/library/http/http.tcl
index 4ef6c73..c0f6e5d 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -4644,7 +4644,7 @@ proc http::GuessType {token} {
     if {[package vsatisfies [package provide Tcl] 9.0-]} {
 	set state(body) [encoding convertfrom -profile tcl8 $enc $state(body)]
     } else {
-	set state(body) [encoding convertfrom -profile tcl8 $enc $state(body)]
+	set state(body) [encoding convertfrom $enc $state(body)]
     }
     set state(body) [string map {\r\n \n \r \n} $state(body)]
     set state(type) application/xml
-- 
cgit v0.12