Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	8 Sep 2003 15:59:43 -0000	1.1
+++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl	9 Sep 2003 07:42:35 -0000	1.2
@@ -271,6 +271,8 @@
                     if { ![string equal $result(creation_status) "ok"] } {
                         set result(message) $result(creation_message)
                         set success_p 0
+                    } else {
+                        set user_id $result(user_id)
                     }
 
                     # We ignore account_status
@@ -289,6 +291,8 @@
                     if { ![string equal $result(update_status) "ok"] } {
                         set result(message) $result(update_message)
                         set success_p 0
+                    } else {
+                        set user_id $result(user_id)
                     }
                 }
                 "delete" {
@@ -299,6 +303,8 @@
                     if { ![string equal $result(delete_status) "ok"] } {
                         set result(message) $result(delete_message)
                         set success_p 0
+                    } else {
+                        set user_id $result(user_id)
                     }
                 }
             }