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.2 -r1.3
--- openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	11 May 2001 00:14:48 -0000	1.2
+++ openacs-4/packages/acs-kernel/sql/oracle/acs-objects-create.sql	4 Sep 2001 04:50:05 -0000	1.3
@@ -696,6 +696,9 @@
    end if;
 
  exception when no_data_found then
+   if c_attribute%ISOPEN then
+      close c_attribute;
+   end if;
    raise_application_error(-20000, 'No data found for attribute ' || 
      v_object_type || '::' || attribute_name_in || 
      ' in acs_object.get_attribute_storage');
