Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	10 Sep 2003 08:58:57 -0000	1.10
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	10 Sep 2003 09:09:47 -0000	1.11
@@ -297,15 +297,17 @@
         } {
             global errorInfo
             ns_log Error "Error getting sync document:\n$errorInfo"
+            set doc_result(doc_status) failed_to_connect
+            set doc_result(doc_message) $errmsg
         }
         
-        auth::sync::end_get_document \
+        auth::sync::job::end_get_document \
             -job_id $job_id \
             -doc_status $doc_result(doc_status) \
             -doc_message $doc_result(doc_message) \
             -document $doc_result(document)
 
-        if { [string equal $doc_status "ok"] && ![empty_string_p $doc_result(document)] } {
+        if { [string equal $doc_result(doc_status) "ok"] && ![empty_string_p $doc_result(document)] } {
             with_catch errmsg {
                 auth::sync::ProcessDocument \
                     -authority_id $authority_id \
@@ -316,6 +318,10 @@
                 ns_log Error "Error processing sync document:\n$errorInfo"
                 set message "Error processing sync document: $errmsg"
             }
+        } else {
+            if { [empty_string_p $message] } {
+                set message $doc_result(doc_message)
+            }
         }
         
         if { $snapshot_p } {