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 -r1.6.2.5 -r1.6.2.6
--- openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl	2 Sep 2021 16:40:56 -0000	1.6.2.5
+++ openacs-4/packages/evaluation-portlet/tcl/test/tclwebtest-procs.tcl	21 Dec 2021 08:12:33 -0000	1.6.2.6
@@ -929,7 +929,7 @@
         }
 
     } else {
-        aa_error "evaluation::twt:::request_notification_Evaluation failed, bad response url : $response_url"
+        aa_error "evaluation::twt::request_notification_Evaluation failed, bad response url : $response_url"
     }
 
     return [lappend list_ids $response]
@@ -960,7 +960,7 @@
         }
 
     } else {
-        aa_error "evaluation::twt:::request_notification_GradeBook failed, bad response url : $response_url"
+        aa_error "evaluation::twt::request_notification_GradeBook failed, bad response url : $response_url"
     }
 
     return [lappend list_ids $response]
@@ -991,7 +991,7 @@
         }
 
     } else {
-        aa_error "evaluation::twt::::unsubscribe_GradeBook failed, bad response url : $response_url"
+        aa_error "evaluation::twt::unsubscribe_GradeBook failed, bad response url : $response_url"
     }
 
     return $response
@@ -1020,7 +1020,7 @@
             set response 1
         }
     } else {
-        aa_error "evaluation::twt::::unsubscribe_Evaluation failed, bad response url : $response_url"
+        aa_error "evaluation::twt::unsubscribe_Evaluation failed, bad response url : $response_url"
     }
 
     return $response
@@ -1063,7 +1063,7 @@
         }
 
     } else {
-        aa_error "evaluation::twt::::add_assignment_type failed, bad response url : $response_url"
+        aa_error "evaluation::twt::add_assignment_type failed, bad response url : $response_url"
     }
 
     return $response