Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	8 Mar 2007 17:00:20 -0000	1.37
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	3 Oct 2007 10:06:24 -0000	1.38
@@ -156,10 +156,10 @@
     }
 
     db_foreach evaluation_deleted_task_sol { select solution_item_id from evaluation_tasks_sols, cr_items where task_item_id = :task_item_id and (live_revision = solution_id or latest_revision = solution_id) and solution_item_id = item_id } {
-	evaluation::set_live_item -revision_id $solution_item_id
+	evaluation::set_live_item -item_id $solution_item_id
     }
     db_foreach evaluation_deleted_grades_sheet { select grades_sheet_item_id from evaluation_grades_sheets, cr_items where task_item_id = :task_item_id and (live_revision = grades_sheet_id or latest_revision = grades_sheet_id) and grades_sheet_item_id = item_id } {
-	evaluation::set_live_item -revision_id $grades_sheet_item_id
+	evaluation::set_live_item -item_id $grades_sheet_item_id
     }
 
     evaluation::set_live_item -item_id $task_item_id