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 -r1.76.2.61 -r1.76.2.62
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	23 Aug 2022 19:10:38 -0000	1.76.2.61
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	13 Sep 2022 09:35:21 -0000	1.76.2.62
@@ -1748,6 +1748,7 @@
   }
 
   ::xo::db::CrFolder ad_instproc save_new {-creation_user} {
+    Save a new CrFolder instance in the database.
   } {
     set package_id ${:package_id}
     [:info class] get_context package_id creation_user creation_ip
@@ -1776,7 +1777,9 @@
     return ${:folder_id}
   }
 
-  ::xo::db::CrFolder ad_instproc save {args} { }  {
+  ::xo::db::CrFolder ad_instproc save {args} {
+    Save an existing CrFolder instance in the database.
+  } {
     set folder_id ${:folder_id}
     content::folder::update \
         -folder_id $folder_id \