Index: openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl	29 Jun 2018 17:27:19 -0000	1.3
+++ openacs-4/packages/xolp/tcl/xolp-evaluation-procs.tcl	11 Apr 2019 11:32:04 -0000	1.4
@@ -31,7 +31,9 @@
       e.g. grades.
     }
 
-  ::xolp::EvaluationSchema ad_proc new_persistent_object {args} {} {
+  ::xolp::EvaluationSchema ad_proc new_persistent_object {args} {
+      Create new persistent object
+  } {
     array set argsarray $args
     if {[llength [array get argsarray "-level_names"]] > 0
         && [llength [array get argsarray "-positive_threshold_index"]] > 0
@@ -80,7 +82,9 @@
     "
   }
 
-  ::xolp::EvaluationScale ad_instproc initialize_loaded_object {} {} {
+  ::xolp::EvaluationScale ad_instproc initialize_loaded_object {} {
+      Initialize loaded object
+  } {
     my levels
   }