Index: openacs-4/packages/survey/sql/oracle/survey-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/sql/oracle/survey-package-create.sql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/survey/sql/oracle/survey-package-create.sql	15 Sep 2002 23:57:20 -0000	1.1
+++ openacs-4/packages/survey/sql/oracle/survey-package-create.sql	12 Jun 2003 03:54:46 -0000	1.2
@@ -387,9 +387,11 @@
     is
         v_user_id acs_objects.creation_user%TYPE;
     begin
-	select creation_user into v_user_id
-	from acs_objects
-	where object_id = survey_response.initial_response_id(initial_user_id.response_id);
+	select o.creation_user into v_user_id
+	from acs_objects o,
+             survey_responses s
+	where o.object_id = nvl(s.initial_response_id, s.response_id)
+	and s.response_id=initial_user_id.response_id;
 	return v_user_id;
     end initial_user_id;