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 -N -r1.30 -r1.31
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	7 Aug 2017 23:47:46 -0000	1.30
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	29 Dec 2017 10:46:39 -0000	1.31
@@ -323,12 +323,12 @@
             document {}
             snapshot_p f
         }
-        with_catch errmsg {
+        ad_try {
             array set doc_result [auth::sync::GetDocument -authority_id $authority_id]
-        } {
-            ns_log Error "Error getting sync document:\n$::errorInfo"
+        } on error {errorMsg} {
+            ad_log Error "Error getting sync document: errorMsg"
             set doc_result(doc_status) failed_to_connect
-            set doc_result(doc_message) $errmsg
+            set doc_result(doc_message) $errorMsg
         }
         
         set snapshot_p [template::util::is_true $doc_result(snapshot_p)]
@@ -341,7 +341,7 @@
             -snapshot=$snapshot_p
 
         if { $doc_result(doc_status) eq "ok" && $doc_result(document) ne "" } {
-            with_catch errmsg {
+            ad_try {
                 auth::sync::ProcessDocument \
                     -authority_id $authority_id \
                     -job_id $job_id \
@@ -371,9 +371,9 @@
                         $ack_file_name \
                         $ack_doc
                 }
-            } {
-                ns_log Error "Error processing sync document:\n$::errorInfo"
-                set message "Error processing sync document: $errmsg"
+            } on error {errorMsg} {
+                ad_log Error "Error processing sync document: $errorMsg"
+                set message "Error processing sync document: $errorMsg"
             }
         } else {
             if { $message eq "" } {