Index: openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	23 Dec 2008 11:33:47 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	23 Dec 2008 23:37:37 -0000	1.22
@@ -224,7 +224,6 @@
 
   HttpCore instproc open_connection {} {
     my instvar host port S
-    my log "OPENING to $host $port"
     set S [socket -async $host $port]
   }
 
@@ -334,7 +333,7 @@
 
   HttpCore instproc close {} {
     catch {close [my set S]} errMsg
-    my log "--- closing socket socket?[my exists S] => $errMsg"
+    #my log "--- closing socket socket?[my exists S] => $errMsg"
   }
 
   HttpCore instproc cancel {reason} {
@@ -496,7 +495,7 @@
       # test whether open_connection yielded
       # a socket ...
       #
-      my log "after core init, S?[my exists S]"
+      #my log "after core init, S?[my exists S]"
       if {[my exists S]} {
 	my send_request
       }