Index: doc/tls.html
==================================================================
--- doc/tls.html
+++ doc/tls.html
@@ -691,16 +691,19 @@
 <em>
 The use of the variable <strong>tls::debug</strong> is not recommended.
 It may be removed from future releases.
 </em>
 </p>
+
+<h4><a name="DEBUG_EXAMPLES">Debug Examples</a></h4>
+
+<p>These examples use the default Unix platform SSL certificates. For standard
+installations, -cadir and -cafile should not be needed. If your certificates
+are in non-standard locations, update -cadir or use -cafile as needed.</p>
 <br>
 Example #1: Use HTTP package
 
-<p>This example uses the default Unix platform SSL certificates. For standard
-installations, -cadir and -cafile should not be needed. Update -cadir or
-replace with -cafile if your platform differs.</p>
 
 <pre><code>
 package require http
 package require tls
 set url "https://www.tcl.tk/"
@@ -750,13 +753,15 @@
 </code></pre>
 
 
 <h3><a name="HTTPS EXAMPLE">HTTPS EXAMPLE</a></h3>
 
-<p>This example uses the default Unix platform SSL certificates. For standard
-installations, -cadir and -cafile should not be needed. Update -cadir or
-replace with -cafile if your platform differs.</p>
+<p>These examples use the default Unix platform SSL certificates. For standard
+installations, -cadir and -cafile should not be needed. If your certificates
+are in non-standard locations, update -cadir or use -cafile as needed.</p>
+
+Example #1: Get web page
 
 <pre><code>
 package require http
 package require tls
 set url "https://www.tcl.tk/"
@@ -769,13 +774,33 @@
     puts [format "Error %s" [http::status $token]]
 }
 
 # Get web page
 set data [http::data $token]
-puts [string length $data]
+puts $data
+
+# Cleanup
+::http::cleanup $token
+</code></pre>
+
+Example #2: Download file
+
+<pre><code>
+package require http
+package require tls
+
+set url "https://wiki.tcl-lang.org/sitemap.xml"
+set filename [file tail $url]
+
+http::register https 443 [list ::tls::socket -autoservername true -require true -cadir /etc/ssl/certs]
+
+# Get file
+set ch [open $filename wb]
+set token [::http::geturl $url -blocksize 65536 -channel $ch]
 
 # Cleanup
+close $ch
 ::http::cleanup $token
 </code></pre>
 
 <h3><a name="SPECIAL CONSIDERATIONS">SPECIAL CONSIDERATIONS</a></h3>
 
@@ -785,16 +810,17 @@
 Use the <strong>tls::protocols</strong> commands to obtain the supported
 protocol versions.</p>
 
 <h3><a name="SEE ALSO">SEE ALSO</a></h3>
 
-<p><strong>socket</strong>, <strong>fileevent, </strong><a
-href="http://www.openssl.org/"><strong>OpenSSL</strong></a></p>
+<p><strong>socket</strong>, <strong>fileevent</strong>, <strong>http</strong>,
+<a href="http://www.openssl.org/"><strong>OpenSSL</strong></a></p>
 
 <hr>
 
 <pre>
 Copyright &copy; 1999 Matt Newman.
 Copyright &copy; 2004 Starfish Systems.
+Copyright &copy; 2023 Brian O'Hagan.
 </pre>
 </body>
 </html>