Index: openacs-4/packages/assessment/www/admin/assessment-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/assessment-form.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/assessment-form.tcl	6 Dec 2004 12:26:53 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/assessment-form.tcl	22 Dec 2004 20:52:18 -0000	1.5
@@ -12,7 +12,8 @@
 
 if {[info exists assessment_id]} {
     set page_title [_ assessment.Edit_Assessment]
-    set _assessment_id [db_string rev_id_from_item_id {}]
+    set _assessment_id 0
+    db_0or1row rev_id_from_item_id {}
 } else {
     set page_title [_ assessment.New_Assessment2]
     set _assessment_id 0