#       argument is an empty string, nothing is written. 
  # 
  proc pageLog { string } { 
    if {[string length $string] > 0} then { 
      catch { 
        tclLog [appendArgs \ 
        tclLog [appendArgs [pid] " : " [clock seconds] " : http : " $string] 
            [pid] " : " [clock seconds] " : http : " $string] 
      } 
    } 
  } 
 
  # 

      # 
      # NOTE: Grab the HTTP response code and data now as they are needed 
      #       in almost all cases. 
      # 
      set code [::http::ncode $token]; set data [::http::data $token] 
 
      # 
      # NOTE: If the HTTP response code is an empty string that may 
      #       indicate a serious bug in the tls (or http) package for 
      #       this platform.  So far, this issue has only been seen 
      #       with the tls 1.6.1 package that shipped with macOS. 
      # 
      if {[string length $code] == 0} then { 
        error [appendArgs \ 
            "received empty HTTP response code for URL \"" $uri \ 
            "\", the \"tls\" (and/or \"http\") package(s) may be " \ 
            "broken for this platform"] 
      } 
 
      # 
      # NOTE: Check the HTTP response code, in order to follow any HTTP 
      #       redirect responses. 
      #