Index: openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	13 Feb 2009 20:40:39 -0000	1.6
+++ openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	4 Apr 2018 21:29:44 -0000	1.7
@@ -362,7 +362,7 @@
     
     set new_survey_items ""
     
-    db_for_each survsimp_responses_new "select survey_id, name, description, u.user_id, first_names || ' ' || last_name as creator_name, creation_date
+    db_foreach survsimp_responses_new "select survey_id, name, description, u.user_id, first_names || ' ' || last_name as creator_name, creation_date
 from survsimp_surveys s, $users_table u
 where s.creation_user = u.user_id
 and creation_date> :since_when