Index: client/1.0/neutral/common.tcl
==================================================================
--- client/1.0/neutral/common.tcl
+++ client/1.0/neutral/common.tcl
@@ -291,13 +291,14 @@
     package require http 2.0
 
     #
     # NOTE: Tcl 8.6 added support for IPv6; however, on some machines this
     #       support can cause sockets to hang for a long time.  Therefore,
-    #       for now, always force the use of IPv4.
+    #       for now, by default, always force the use of IPv4.
     #
-    if {[info exists tcl_version] && $tcl_version >= 8.6} then {
+    if {![info exists ::no(tclSocketAfInet)] && \
+        [info exists tcl_version] && $tcl_version >= 8.6} then {
       namespace eval ::tcl::unsupported {}
       set ::tcl::unsupported::socketAF inet
     }
 
     #
@@ -355,22 +356,10 @@
     #       than X redirects.
     #
     set redirectCount 0
 
     while {1} {
-      #
-      # NOTE: Issue the HTTP request now, grabbing the resulting token.
-      #
-      if {$verboseGetUrl} then {
-        #
-        # NOTE: Emit important diagnostic information related to this
-        #       HTTP request here.  This may be enhanced in the future.
-        #
-        pageLog [appendArgs \
-            "attempting to download URL \"" $uri \"...]
-      }
-
       #
       # NOTE: Build the (optional?) list of options for the HTTP call.
       #
       set localArgs [list]
 
@@ -379,10 +368,23 @@
       }
 
       if {[llength $args] > 0} then {
         eval lappend localArgs $args
       }
+
+      #
+      # NOTE: Issue the HTTP request now, grabbing the resulting token.
+      #
+      if {$verboseGetUrl} then {
+        #
+        # NOTE: Emit important diagnostic information related to this
+        #       HTTP request here.  This may be enhanced in the future.
+        #
+        pageLog [appendArgs \
+            "attempting to download URL \"" $uri "\" with arguments \"" \
+            $localArgs \"...]
+      }
 
       #
       # NOTE: Attempt to perform the actual HTTP request.  This can fail
       #       in an almost unlimited number of ways, which is fun.
       #

Index: client/1.0/neutral/common.tcl.asc
==================================================================
--- client/1.0/neutral/common.tcl.asc
+++ client/1.0/neutral/common.tcl.asc
@@ -1,18 +1,18 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v2
 Comment: Eagle Package Repository
 
-iQIcBAABCAAGBQJfl2SjAAoJEFAslq9JXcLZBIAQAJtAKkFq8derj6+2T+hAXLMD
-RmLmTwx1C96tYdYNRjo5cguWPiAVdumV+rML9MBQU+zuuf5BC4lVQcWOMAuGktk0
-tjOOslgC3zHKRnMl0IZXgsIpTevobdTqTNiwnB13yvn6Crhicr86247uomSQd6Vz
-3SypUWnJ8bXEpYb9QWHeOsW8ZuvM9m9wjnA5eXEbtEOyuT9D7GWf6xSPT0b3TR5E
-K2yWBo2+O5X/SMQclh1IbzOr849fQuyqzT2WljfxWBnc5kmZhRJ3aJI2MRaWiicN
-LNtRGr1Oz4Pkjmg9S+bGDF/sgI1EOaBPzaYUU1G92G5HOLSu3uAU3Iujj4S6RSVu
-1N6qLIGKaJtFea7UBB/9i5o07YJzfdYwIJPBg+PBQbKSXycaYNcT5UEMJhsbfsA4
-8cYuI+1QPi7OC/GQlS5GQ0JYj6RrYTP9vh1TJyiiDvSYKjrNMmZ514ALe7ETk31c
-dnVmgiBTFe2NHKOj9+XhVKglAOr1Ujsu84YQaAuLczjoLf0BHXdXfkC7oUmQw270
-yqegS3izJlcOsRWT4s9RjTASuocJuL6fhcySqxVuto4hGhqWRM0eN/eApOFmcxBg
-FC9V/Y8ZFrYibhkVM1ZbuFZq/30J1hqamEBZ/9G/EUK4l47I2g1n9pIKkFXVC2hY
-QIA8sqOFCDt/3cGh04WZ
-=a0du
+iQIcBAABCAAGBQJgb7gpAAoJEFAslq9JXcLZyhAP/1P+iaqtoOHt+t0FIElTfWqD
+NuZzWXa/pjwUSnwYATrYk2e9mmz9WVtpf8QTFO6aHyCyMrxY0Ufb6VRZosRwXZsb
+dFO2K0gFRvM4gH3ZfIbPgrvDl2MycFOnAqHSQ+ELQ0iDKWKo9PV/iPls42HyWuPH
+fKD3QHcm9V+4o5s+BRCTmLoFQIFG06YTszJ6wva9oo9GAZOkNJbCup/cVPZhLIPt
+S5o3c1TEi+b2exYlaklmpqn+EvJguXW2wri2To/Wd9f9pWpmfBkzzVSCmWfgq/8u
+LmCcsmU5qBl1iMpC+KNFgS8a4GHb7B7KPe7iJlUzNzMe7KFgXUqnquYqB3iWUO/7
+QXBV/CEJIK6GgHcIBfFxSU2idduETGd6e3D7+/shqj2Bhds/XKL6lQza1xLPqraO
+Lze6yrAk+mE+WPLrvqKvLJMQ0NiAg5qN2QLopTXjGn9OUommKB9LxrGu724LU5EO
+0Koq0QEQwg75Z3XC4FGcIl6iRIUBDEMch6Lj6sF53KGHV1QiwQHK7ziOkKcaRb2N
+GUNdgQXG9WUJDmgRhaKAHd5LBZ1drH1Mkv0xQ1l0DttJOwX3PMNk4DTZmZZ81kYg
+v1DmhyDzsX5DSxa/k9AVe8XXc6uJj3IbZKoq3ROO4v6bhuI/1soP9VPVW1kify9i
+Y6aqNCwhaHRaK+6FnWhO
+=qbqB
 -----END PGP SIGNATURE-----