Index: openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl,v
diff -u -r1.9.2.6 -r1.9.2.7
--- openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	20 Jul 2005 15:40:27 -0000	1.9.2.6
+++ openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	20 Jul 2005 15:43:58 -0000	1.9.2.7
@@ -260,7 +260,7 @@
 	if {![empty_string_p $end_time]} {
 	    db_dml update_end_time {}
 	}
-	if { $type } {
+	if { $type == 1} {
 	    db_transaction {
 		set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]