Index: openacs-4/packages/survey/www/admin/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/process-response.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/survey/www/admin/process-response.tcl	6 Nov 2013 07:33:54 -0000	1.5
+++ openacs-4/packages/survey/www/admin/process-response.tcl	7 Aug 2014 07:11:47 -0000	1.5.2.1
@@ -15,13 +15,13 @@
     @date    1 April 2003
     @cvs-id $Id$
 } {
-  survey_id:integer
-  section_id:integer
-  {initial_response_id:integer 0}
-  {edited_response_id:integer 0}
+  survey_id:naturalnum,notnull
+  section_id:naturalnum,notnull
+  {initial_response_id:naturalnum,notnull 0}
+  {edited_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 } {