Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	5 Aug 2014 07:14:45 -0000	1.1.2.6
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	5 Aug 2014 12:11:08 -0000	1.1.2.7
@@ -728,8 +728,12 @@
     
     ## Issuing of the request
     
-    # Spooling to files is disabled for now
-    set spool_file ""
+    #
+    # Spooling to file is disabled for versions earlier than 4.99.6 
+    #
+    if {[apm_version_names_compare [ns_info patchlevel] "4.99.6"] == -1} {
+        set spool_file ""
+    }
     
     set queue_cmd [list $http_api queue \
                        -timeout [timeout $timeout] \
@@ -1140,15 +1144,15 @@
     @see util::get_http_status 
 } {
     if { [catch { set status [util::get_http_status -url $url] } errmsg] } {
-	# got an error; definitely not valid
-	return 0
+        # got an error; definitely not valid
+        return 0
     } else {
-	# we got the page but it might have been a 404 or something
-	if { $status in $list_of_bad_codes } {
-	    return 0
-	} else {
-	    return 1
-	}
+        # we got the page but it might have been a 404 or something
+        if { $status in $list_of_bad_codes } {
+            return 0
+        } else {
+            return 1
+        }
     }
 }