Index: openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	1 Oct 2008 19:21:50 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	26 Nov 2008 09:30:07 -0000	1.6
@@ -122,10 +122,16 @@
 #                -host [my host] -port [my port] \
 #                -path [Cluster set url]?cmd=[ns_urlencode $args]]
 #     return [$r set data]
+
     set r [::xo::AsyncHttpRequest new -volatile \
-               -host [my host] -port [my port] \
-               -path [Cluster set url]?cmd=[ns_urlencode $args]]
-  }
+	       -host [my host] -port [my port] \
+	       -path [Cluster set url]?cmd=[ns_urlencode $args]]
+  
+#     ::bgdelivery do ::xo::AsyncHttpRequest new \
+# 	-host [my host] -port [my port] \
+#         -path [Cluster set url]?cmd=[ns_urlencode $args] \
+# 	-mixin ::xo::AsyncHttpRequest::SimpleListener \
+# 	-proc finalize {obj status value} { my destroy }
 
-
+  }
 }
\ No newline at end of file