Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.126.2.76 -r1.126.2.77
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	12 Sep 2022 16:04:55 -0000	1.126.2.76
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	13 Nov 2022 05:11:58 -0000	1.126.2.77
@@ -2063,13 +2063,23 @@
                 #
                 # Perform an upsert operation via stored procedure
                 #
-                acs::dc call sec_session_property upsert \
-                    -session_id $session_id \
-                    -module $module \
-                    -name $name \
-                    -value $value \
-                    -secure $secure \
-                    -last_hit $last_hit
+                if {[db_driverkey ""] eq "oracle"} {
+                    acs::dc call sec_session_property upsert \
+                        -p_session_id $session_id \
+                        -p_module $module \
+                        -p_name $name \
+                        -p_value $value \
+                        -p_secure $secure \
+                        -p_last_hit $last_hit
+                } else {
+                    acs::dc call sec_session_property upsert \
+                        -session_id $session_id \
+                        -module $module \
+                        -name $name \
+                        -value $value \
+                        -secure $secure \
+                        -last_hit $last_hit
+                }
             }
         }
     }