Index: openacs-4/packages/survey/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/process-response.tcl,v
diff -u -r1.15 -r1.15.2.1
--- openacs-4/packages/survey/www/process-response.tcl	6 Nov 2013 07:33:54 -0000	1.15
+++ openacs-4/packages/survey/www/process-response.tcl	7 Aug 2014 07:11:46 -0000	1.15.2.1
@@ -15,12 +15,12 @@
     @cvs-id $Id$
 
 } {
-  survey_id:integer
-  section_id:integer
-  {initial_response_id:integer 0}
+  survey_id:naturalnum,notnull
+  section_id:naturalnum,notnull
+  {initial_response_id:naturalnum,notnull 0}
   return_url:optional
   response_to_question:array,optional,multiple,html
-  new_response_id:integer
+  new_response_id:naturalnum,notnull
 } -validate {
 
     section_exists -requires { section_id } {