Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/workflow/tcl/case-procs.tcl	13 Oct 2024 08:50:37 -0000	1.58
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	13 Oct 2024 09:03:15 -0000	1.59
@@ -2096,13 +2096,17 @@
                 -user_id $user_id
         }
 	#ns_log notice "case::execute three = [expr {[set three [clock clicks -milliseconds]] - $two}]"
-        # Insert activity log entry
-        set extra_vars [ns_set create]
-        oacs_util::vars_to_ns_set \
-                -ns_set $extra_vars \
-                -var_list { entry_id case_id action_id comment comment_mime_type package_id}
 
+        # Insert activity log entry
         if {!$no_logging_p} {
+            set extra_vars [ns_set create \
+                                entry_id $entry_id \
+                                case_id $case_id \
+                                action_id $action_id\
+                                comment $comment \
+                                comment_mime_type $comment_mime_type \
+                                package_id $package_id \
+                               ]
 	    set entry_id [package_instantiate_object \
 			      -creation_user $user_id \
 			      -extra_vars $extra_vars \