Index: openacs-4/packages/assessment/www/asm-admin/section-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-copy.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/section-copy.tcl	12 Jun 2006 02:49:51 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/section-copy.tcl	27 Oct 2014 16:41:03 -0000	1.5
@@ -4,8 +4,8 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
-    assessment_id:integer
-    section_id:integer
+    assessment_id:naturalnum,notnull
+    section_id:naturalnum,notnull
     after:integer
 } -properties {
     context_bar:onevalue
@@ -46,7 +46,7 @@
 	    set new_section_id [as::section::copy -section_id $section_id -name $name -assessment_id $assessment_id]
 
 	    db_dml move_down_sections {}
-	    set sort_order [expr $after + 1]
+	    set sort_order [expr {$after + 1}]
 	    db_dml add_section_to_assessment {}
 	}
     }