Index: openacs-4/packages/dotlrn/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/tclwebtest-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn/tcl/test/tclwebtest-procs.tcl	29 Mar 2018 00:13:46 -0000	1.4
+++ openacs-4/packages/dotlrn/tcl/test/tclwebtest-procs.tcl	10 Jul 2018 15:28:47 -0000	1.5
@@ -8,7 +8,7 @@
 
 namespace eval dotlrn::twt {}
 
-ad_proc dotlrn::twt::term_new {term_name start_date end_date} {
+ad_proc -private dotlrn::twt::term_new {term_name start_date end_date} {
 
         set response 0
 	
@@ -45,7 +45,7 @@
 	return $response
 } 
 
-ad_proc dotlrn::twt::term_edit { term_name new_term_name term_year start_date end_date} {
+ad_proc -private dotlrn::twt::term_edit { term_name new_term_name term_year start_date end_date} {
 
         set response 0
 
@@ -85,7 +85,7 @@
 	return $response
 }
   
-ad_proc dotlrn::twt::department_new  {department_name description external_url department_key } {
+ad_proc -private dotlrn::twt::department_new  {department_name description external_url department_key } {
 
         set response 0
 
@@ -124,7 +124,7 @@
 	return $response
 } 
 
-ad_proc dotlrn::twt::department_delete { department_name department_key } {
+ad_proc -private dotlrn::twt::department_delete { department_name department_key } {
 
         set response 0
 
@@ -156,7 +156,7 @@
 	return $response
 } 
 
-ad_proc dotlrn::twt::subject_new  { department_name subject_name description subject_key } {
+ad_proc -private dotlrn::twt::subject_new  { department_name subject_name description subject_key } {
         set response 0
 
 	# The admin dotlrn page url
@@ -193,7 +193,7 @@
 	return $response
 } 
 
-ad_proc dotlrn::twt::subject_delete  { department_name } {
+ad_proc -private dotlrn::twt::subject_delete  { department_name } {
 
         set response 0
 
@@ -225,7 +225,7 @@
 	return $response
 } 
 
-ad_proc dotlrn::twt::subject_edit  { department_name subject_name new_subject_name new_description } {
+ad_proc -private dotlrn::twt::subject_edit  { department_name subject_name new_subject_name new_description } {
 
         set response 0
 
@@ -262,7 +262,7 @@
 	return $response
 }
 
-ad_proc dotlrn::twt::class_new  { department_name class_name description class_key } {
+ad_proc -private dotlrn::twt::class_new  { department_name class_name description class_key } {
 
         set response 0
 
@@ -302,7 +302,7 @@
 	return $response
 } 
 
-ad_proc dotlrn::twt::community_new { community_name description } {
+ad_proc -private dotlrn::twt::community_new { community_name description } {
 
         set response 0
 
Index: openacs-4/packages/calendar-portlet/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/test/tclwebtest-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/calendar-portlet/tcl/test/tclwebtest-procs.tcl	7 Aug 2017 23:48:05 -0000	1.3
+++ openacs-4/packages/calendar-portlet/tcl/test/tclwebtest-procs.tcl	10 Jul 2018 15:30:22 -0000	1.4
@@ -8,7 +8,7 @@
 
 namespace eval calendar_portlet::twt {}
 
-ad_proc calendar_portlet::twt::get_start_end_week_date {number_week year} {
+ad_proc -private calendar_portlet::twt::get_start_end_week_date {number_week year} {
     
     set date [clock scan "$number_week weeks" -base [clock scan "01/01/$year"]]
     set st [clock scan "sunday" -base [expr {$date - 436800}]]
@@ -29,7 +29,7 @@
     return [list $start_week $end_week]
 }
 
-ad_proc calendar_portlet::twt::go_to_dotlrn_calendar_page_url {} {
+ad_proc -private calendar_portlet::twt::go_to_dotlrn_calendar_page_url {} {
 
     # The admin dotlrn page url
     set dotlrn_admin_page_url "[site_node::get_package_url -package_key dotlrn]admin"
@@ -46,11 +46,11 @@
     tclwebtest::link follow {My Calendar}
 }
 
-ad_proc calendar_portlet::twt::follow_calendar_link {} {
+ad_proc -private calendar_portlet::twt::follow_calendar_link {} {
     tclwebtest::link follow {My Calendar}
 }
 
-ad_proc calendar_portlet::twt::display_day {date} {
+ad_proc -private calendar_portlet::twt::display_day {date} {
 
     set response 0
     
@@ -74,7 +74,7 @@
 }
 
 
-ad_proc calendar_portlet::twt::display_week {start_date_week end_date_week} {
+ad_proc -private calendar_portlet::twt::display_week {start_date_week end_date_week} {
 
     set response 0
     
@@ -97,7 +97,7 @@
     return $response
 }
 
-ad_proc calendar_portlet::twt::display_month {date} {
+ad_proc -private calendar_portlet::twt::display_month {date} {
 
     set response 0
 
@@ -125,7 +125,7 @@
 }
 
 
-ad_proc calendar_portlet::twt::item_add {item_title item_description item_date} {
+ad_proc -private calendar_portlet::twt::item_add {item_title item_description item_date} {
 
     set response 0
     
@@ -167,7 +167,7 @@
     return $response
 }
 
-ad_proc calendar_portlet::twt::item_edit {item_title item_new_title item_new_description item_date} {
+ad_proc -private calendar_portlet::twt::item_edit {item_title item_new_title item_new_description item_date} {
 
     set response 0
 
@@ -205,7 +205,7 @@
     return $response
 }
 
-ad_proc calendar_portlet::twt::item_delete {item_title} {
+ad_proc -private calendar_portlet::twt::item_delete {item_title} {
 
     set response 0
 
@@ -237,7 +237,7 @@
     return $response
 }
 
-ad_proc calendar_portlet::twt::item_display_list {item_title_1 item_title_2 item_title_3} {
+ad_proc -private calendar_portlet::twt::item_display_list {item_title_1 item_title_2 item_title_3} {
 
     set response 0
 
@@ -261,7 +261,7 @@
     return $response
 }
 
-ad_proc calendar_portlet::twt::request_notification {} {
+ad_proc -private calendar_portlet::twt::request_notification {} {
 
     set response 0
     
@@ -291,7 +291,7 @@
     return $response
 }
 
-ad_proc calendar_portlet::twt::unsubscribe {} {
+ad_proc -private calendar_portlet::twt::unsubscribe {} {
 
     set response 0
 
@@ -316,7 +316,7 @@
     return $response
 }
 
-ad_proc calendar_portlet::twt::display_date {date} {
+ad_proc -private calendar_portlet::twt::display_date {date} {
 
     set response 0
 
Index: openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl	27 Mar 2018 17:08:50 -0000	1.6
+++ openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl	10 Jul 2018 15:33:21 -0000	1.7
@@ -8,7 +8,7 @@
 
 namespace eval evaluation::twt {}
 
-ad_proc evaluation::twt::create_file {file_name}  {
+ad_proc -private evaluation::twt::create_file {file_name}  {
     
     # Create a temporal file
     set file_name "/tmp/$file_name"
@@ -18,13 +18,13 @@
     return $file_name
 }
 
-ad_proc evaluation::twt::delete_file {file_name}  {
+ad_proc -private evaluation::twt::delete_file {file_name}  {
 
     # Delete a file name 
     file delete -force -- $file_name
 }
 
-ad_proc evaluation::twt::get_notification_ids { pretty_name } {
+ad_proc -private evaluation::twt::get_notification_ids { pretty_name } {
     
     # Get the notification ids : type_id, object_id and user_id
     set link [lindex [tclwebtest::link find ~u "(.+)request-new\?(.*)pretty(.+)name=$pretty_name\(.+)"] 7]
@@ -36,7 +36,7 @@
     return [list $type_id $object_id $user_id]
 }
 
-ad_proc evaluation::twt::get_task_grade_id { task_name } {
+ad_proc -private evaluation::twt::get_task_grade_id { task_name } {
     
     db_1row task_id "select task_id from evaluation_tasks where task_name=:task_name"
     db_1row grade_item_id "select grade_item_id from evaluation_tasks where task_name=:task_name"
@@ -45,7 +45,7 @@
     return [list $task_id $grade_id]
 }
 
-ad_proc evaluation::twt::get_evaluation_url {} {
+ad_proc -private evaluation::twt::get_evaluation_url {} {
 
     # The admin dotlrn page url
     set dotlrn_page_url [site_node::get_package_url -package_key dotlrn]
@@ -86,7 +86,7 @@
     return $class_material_url 
 }
 
-ad_proc evaluation::twt::add_task { class_material_url task_name task_description file_name } {
+ad_proc -private evaluation::twt::add_task { class_material_url task_name task_description file_name } {
     
     set response 0
 
@@ -121,7 +121,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::upload_task_solution { class_material_url task_name file_name} {
+ad_proc -private evaluation::twt::upload_task_solution { class_material_url task_name file_name} {
 
     set response 0
 
@@ -160,7 +160,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::view_task_solution { class_material_url task_name file_name } {
+ad_proc -private evaluation::twt::view_task_solution { class_material_url task_name file_name } {
 
     set response 0
 
@@ -195,7 +195,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::edit_task_solution { class_material_url task_name file_name } {
+ad_proc -private evaluation::twt::edit_task_solution { class_material_url task_name file_name } {
 
     set response 0
 
@@ -236,7 +236,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::view_task { class_material_url task_name task_description file_name} {
+ad_proc -private evaluation::twt::view_task { class_material_url task_name task_description file_name} {
 
     set response 0
     
@@ -273,7 +273,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::edit_task { class_material_url precedent_task_name task_name task_description file_name } {
+ad_proc -private evaluation::twt::edit_task { class_material_url precedent_task_name task_name task_description file_name } {
     
     set response 0
 
@@ -322,7 +322,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::delete_task { class_material_url task_name } {
+ad_proc -private evaluation::twt::delete_task { class_material_url task_name } {
 
     set response 0
 
@@ -358,7 +358,7 @@
 }
 
 
-ad_proc evaluation::twt::add_project { class_material_url project_name project_description file_name } {
+ad_proc -private evaluation::twt::add_project { class_material_url project_name project_description file_name } {
 
     set response 0
 
@@ -392,7 +392,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::upload_project_solution { class_material_url project_name file_name } {
+ad_proc -private evaluation::twt::upload_project_solution { class_material_url project_name file_name } {
 
     set response 0
 
@@ -431,7 +431,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::view_project_solution { class_material_url project_name file_name } {
+ad_proc -private evaluation::twt::view_project_solution { class_material_url project_name file_name } {
 
     set response 0
 
@@ -466,7 +466,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::edit_project_solution { class_material_url project_name file_name } {
+ad_proc -private evaluation::twt::edit_project_solution { class_material_url project_name file_name } {
 
     set response 0
 
@@ -507,7 +507,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::view_project { class_material_url project_name project_description file_name} {
+ad_proc -private evaluation::twt::view_project { class_material_url project_name project_description file_name} {
 
     set response 0
 
@@ -544,7 +544,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::edit_project { class_material_url precedent_project_name project_name project_description file_name } {
+ad_proc -private evaluation::twt::edit_project { class_material_url precedent_project_name project_name project_description file_name } {
 
     set response 0
 
@@ -594,7 +594,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::delete_project { class_material_url project_name } {
+ad_proc -private evaluation::twt::delete_project { class_material_url project_name } {
 
     set response 0
 
@@ -629,7 +629,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::add_exam { class_material_url exam_name exam_description file_name } {
+ad_proc -private evaluation::twt::add_exam { class_material_url exam_name exam_description file_name } {
 
     set response 0
 
@@ -664,7 +664,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::upload_exam_solution { class_material_url exam_name file_name} {
+ad_proc -private evaluation::twt::upload_exam_solution { class_material_url exam_name file_name} {
 
     set response 0
 
@@ -703,7 +703,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::view_exam_solution { class_material_url exam_name file_name } {
+ad_proc -private evaluation::twt::view_exam_solution { class_material_url exam_name file_name } {
 
     set response 0
 
@@ -738,7 +738,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::edit_exam_solution { class_material_url exam_name file_name } {
+ad_proc -private evaluation::twt::edit_exam_solution { class_material_url exam_name file_name } {
 
     set response 0
 
@@ -779,7 +779,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::view_exam { class_material_url exam_name exam_description file_name} {
+ad_proc -private evaluation::twt::view_exam { class_material_url exam_name exam_description file_name} {
 
     set response 0
 
@@ -816,7 +816,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::edit_exam { class_material_url precedent_exam_name exam_name exam_description file_name } {
+ad_proc -private evaluation::twt::edit_exam { class_material_url precedent_exam_name exam_name exam_description file_name } {
 
     set response 0
 
@@ -867,7 +867,7 @@
 }
 
 
-ad_proc evaluation::twt::delete_exam { class_material_url exam_name } {
+ad_proc -private evaluation::twt::delete_exam { class_material_url exam_name } {
 
     set response 0
 
@@ -903,7 +903,7 @@
 }
 
 
-ad_proc evaluation::twt::request_notification_Evaluation { class_material_url } {
+ad_proc -private evaluation::twt::request_notification_Evaluation { class_material_url } {
     
     set response 0
     
@@ -935,7 +935,7 @@
     return [lappend list_ids $response]
 }
 
-ad_proc evaluation::twt::request_notification_GradeBook { class_material_url } {
+ad_proc -private evaluation::twt::request_notification_GradeBook { class_material_url } {
     set response 0
 
     ::twt::do_request $class_material_url
@@ -967,7 +967,7 @@
 
 }
 
-ad_proc evaluation::twt::unsubscribe_GradeBook { class_material_url type_id object_id user_id} {
+ad_proc -private evaluation::twt::unsubscribe_GradeBook { class_material_url type_id object_id user_id} {
 
     set response 0
 
@@ -997,7 +997,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::unsubscribe_Evaluation { class_material_url type_id object_id user_id } {
+ad_proc -private evaluation::twt::unsubscribe_Evaluation { class_material_url type_id object_id user_id } {
 
     set response 0
 
@@ -1026,7 +1026,7 @@
     return $response
 }
 
-ad_proc evaluation::twt::add_assignment_type { class_material_url assigment_type_name} {
+ad_proc -private evaluation::twt::add_assignment_type { class_material_url assigment_type_name} {
 
     set response 0
 
Index: openacs-4/packages/faq-portlet/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/tcl/test/tclwebtest-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/faq-portlet/tcl/test/tclwebtest-procs.tcl	29 Mar 2018 00:13:46 -0000	1.4
+++ openacs-4/packages/faq-portlet/tcl/test/tclwebtest-procs.tcl	10 Jul 2018 15:34:43 -0000	1.5
@@ -15,7 +15,7 @@
 
 namespace eval faq_portlet::twt {}
 
-ad_proc faq_portlet::twt::new { faq_name } {
+ad_proc -private faq_portlet::twt::new { faq_name } {
 
         set response 0
 	 
@@ -49,7 +49,7 @@
 	return $response
 }
 
-ad_proc faq_portlet::twt::delete { faq_name} {
+ad_proc -private faq_portlet::twt::delete { faq_name} {
 
         set response 0
 
@@ -83,7 +83,7 @@
 	return $response
 }
 
-ad_proc faq_portlet::twt::disable_enable { faq_name option } {
+ad_proc -private faq_portlet::twt::disable_enable { faq_name option } {
 
         set response 0
 
@@ -119,7 +119,7 @@
 }
 
 
-ad_proc faq_portlet::twt::edit_faq { faq_name faq_new_name } {
+ad_proc -private faq_portlet::twt::edit_faq { faq_name faq_new_name } {
 
         set response 0
 
@@ -157,7 +157,7 @@
 	return $response
 }
 
-ad_proc faq_portlet::twt::new_Q_A { faq_name question answer} {
+ad_proc -private faq_portlet::twt::new_Q_A { faq_name question answer} {
 
         set response 0
 
@@ -193,7 +193,7 @@
 	return $response
 }
 
-ad_proc faq_portlet::twt::delete_Q_A { faq_name question} {
+ad_proc -private faq_portlet::twt::delete_Q_A { faq_name question} {
 
         set response 0