Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	11 May 2001 04:43:39 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	12 May 2001 05:09:48 -0000	1.6
@@ -176,7 +176,7 @@
     set full_statement_name [db_qd_get_fullname $statement_name]
 
     db_with_handle db { 
-	db_exec write_blob_lob $db $full_statement_name $sql
+	db_exec write_blob $db $full_statement_name $sql
     }
 }