}

  if {![isEagle]} then {
    ###########################################################################
    ############################# BEGIN Tcl ONLY ##############################
    ###########################################################################

    #
    # NOTE: This procedure emits a message to the console.  The channel
    #       argument is the channel where the message should be written.  The
    #       string argument is the content of the message to emit.
    #
    proc pageOut { channel string } {
      catch {
        puts -nonewline $channel $string; flush $channel
      }
    }

    #
    # NOTE: This procedure emits a message to the HTTP client log.  The string
    #       argument is the content of the message to emit.
    #
    proc pageLog { string } {
      catch {
        tclLog [appendArgs [pid] " : " [clock seconds] " : http : " $string]

      #       (i.e. pending) [after] event.
      #
      variable afterForPageProgress

      #
      # NOTE: Show that something is happening...
      #
      catch {puts -nonewline $channel $type; flush $channel}
      pageOut $channel $type

      #
      # NOTE: Make sure that we are scheduled to run again, if requested.
      #
      if {$milliseconds > 0} then {
        set afterForPageProgress [after $milliseconds \
            [namespace code [list pageProgress $channel $type \

        unset -nocomplain afterForPageProgress
      }

      #
      # NOTE: If progress messages were emitted, start a fresh line.
      #
      if {!$quiet} then {
        catch {puts $channel [appendArgs " " $uri]; flush $channel}
        pageOut $channel [appendArgs " " $uri \n]
      }

      return $data
    }

    ###########################################################################
    ############################## END Tcl ONLY ###############################