Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -N -r1.81 -r1.82
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	5 Feb 2019 15:19:29 -0000	1.81
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	8 Feb 2019 00:41:02 -0000	1.82
@@ -1039,14 +1039,9 @@
                     }
                 }
             }
-            if {[ns_conn isconnected]} {
-                set current_user_id [ad_conn user_id]
-            } else {
-                set current_user_id 0
-            }
-            set values(__key_signature) [ad_sign -- "$values($key_name):${form_name}:${current_user_id}"]
+            set values(__key_signature) [ad_sign -- "$values($key_name):${form_name}:[ad_conn user_id]"]
         }
-
+        
         foreach element_name $properties(element_names) {
             if { [info exists values($element_name)] } {
                 if { [info exists af_flag_list(${form_name}__$element_name)]
@@ -1092,12 +1087,7 @@
             upvar #$level __key_signature __key_signature
 
             if { [info exists __key] } {
-                if {[ns_conn isconnected]} {
-                    set current_user_id [ad_conn user_id]
-                } else {
-                    set current_user_id 0
-                }
-                if {![ad_verify_signature "$__key:${form_name}:${current_user_id}" $__key_signature] } {
+                if {![ad_verify_signature "$__key:${form_name}:[ad_conn user_id]" $__key_signature] } {
                     ad_return_error "Bad key signature" "Verification of the database key value failed"
                     ad_script_abort
                 }