Index: openacs-4/packages/survey/www/admin/question-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/question-add-3.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/survey/www/admin/question-add-3.tcl	6 Nov 2013 07:33:54 -0000	1.6
+++ openacs-4/packages/survey/www/admin/question-add-3.tcl	27 Oct 2014 16:41:57 -0000	1.7
@@ -19,8 +19,8 @@
     @author nstrug@arsdigita.com
     @cvs-id $Id$
 } {
-    section_id:integer,notnull
-    question_id:integer,notnull
+    section_id:naturalnum,notnull
+    question_id:naturalnum,notnull
     after:integer,optional
     question_text:html
     {abstract_data_type ""}
@@ -105,7 +105,10 @@
 	    set sort_order [expr { $after + 1 }]
 	    db_dml renumber_sort_orders {}
 	} else {
-	    set sort_order [expr {[db_string max_question {}] + 1}]
+	    set sort_order [db_string max_question {}]
+	    if { $sort_order eq ""} {
+		set sort_order 1
+	    }
 	}
 
 	db_exec_plsql create_question {}