Index: openacs-4/packages/assessment/tcl/as-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	21 Feb 2005 21:45:34 -0000	1.17
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	21 Feb 2005 22:16:51 -0000	1.18
@@ -249,7 +249,7 @@
     set failed_p "t"
     set failed [catch $tcl_code errorMsg]
     
-
+   ns_log notice "error $errorMsg" 
     if { $failed > 0 } {
 	set failed_p "f"
     }
@@ -388,9 +388,10 @@
 } {
 
     set assessment_rev_id [db_string get_assessment_id {}]
-    
+    	    ns_log notice "-------------------------------> ENTRA 1"
 	set checks [db_list_of_lists section_checks {}]
 	foreach check_id $checks {
+	    ns_log notice "-------------------------------> ENTRA 2"
 	    set info [db_0or1row check_info {}]
 	    set perform [db_string check_sql $check_sql]
 	    if {$action_p == "t"} {