Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -N -r1.76.2.24 -r1.76.2.25
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	12 Sep 2019 17:45:06 -0000	1.76.2.24
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	16 Sep 2019 11:45:07 -0000	1.76.2.25
@@ -1612,7 +1612,7 @@
                          [list label ${:label}] \
                          [list description ${:description}]\
                         ]
-    :get_context package_id user_id ip
+    [:info class] get_context package_id user_id ip
     ::xo::dc 1row _ "select acs_object__update_last_modified(:folder_id, :user_id, :ip)"
   }