Index: openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/10-database-procs-postgresql.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	8 Apr 2001 16:13:03 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	9 Apr 2001 04:55:14 -0000	1.8
@@ -116,6 +116,9 @@
 
     } error]
 
+    # error in the plsql anonymous function - try and drop it.
+    catch {ns_db dml $db "drop function $function_name ()"}
+
     global errorInfo errorCode
     set errinfo $errorInfo
     set errcode $errorCode