Index: openacs-4/packages/cms/sql/oracle/cms-workflow.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/sql/oracle/cms-workflow.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/sql/oracle/cms-workflow.sql	27 Aug 2001 03:59:17 -0000	1.3
+++ openacs-4/packages/cms/sql/oracle/cms-workflow.sql	4 Sep 2001 04:50:05 -0000	1.4
@@ -526,6 +526,9 @@
     return v_next_place;
     exception
       when NO_DATA_FOUND then
+        if c_places_cur%ISOPEN then
+           close c_places_cur;
+        end if;
         return null;
   end get_next_place;
 
@@ -568,6 +571,9 @@
     return v_previous_place;
     exception
       when NO_DATA_FOUND then
+        if c_places_cur%ISOPEN then
+           close c_places_cur;
+        end if;
         return null;
   end get_previous_place;
 
