Index: openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	17 May 2003 01:46:41 -0000	1.8
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	23 Aug 2003 23:47:16 -0000	1.9
@@ -263,13 +263,13 @@
   security_context_root := -4;
 
   -- Remove my old ancestors from my descendants.
-  delete from acs_object_context_index
-  where object_id in (select object_id
-                      from acs_object_contexts
-                      where ancestor_id = :old.object_id)
-  and ancestor_id in (select ancestor_id
-		      from acs_object_contexts
-		      where object_id = :old.object_id);
+  for pair in ( select object_id from acs_object_contexts where 
+                ancestor_id = :old.object_id) loop
+    delete from acs_object_context_index
+    where object_id = pair.object_id
+      and ancestor_id in ( select ancestor_id from acs_object_contexts
+                           where object_id = :old.object_id );
+  end loop;
 
   -- Kill all my old ancestors.
   delete from acs_object_context_index