The initial patch was made as a "reverse" of the original upstream patch. The attached file is the correct one.
--- tkabber/jabberlib/https.tcl (revision 1477)
+++ tkabber/jabberlib/https.tcl (revision 1478)
@@ -270,7 +270,7 @@
if {$code >= 200 && $code < 300} {
# Success
- while {[string length [gets $sock]]} { }
+ while {[string length [gets $state(sock)]]} { }
Finish $token
} else {
# Failure
