Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.88.2.13 -r1.88.2.14
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	4 Feb 2017 14:12:42 -0000	1.88.2.13
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	3 Mar 2017 08:03:22 -0000	1.88.2.14
@@ -2549,8 +2549,10 @@
         oracle {
             set user_pass [db_get_sql_user -dbn $dbn]
             cd [file dirname $file]
-            set fp [open "|[file join $::env(ORACLE_HOME) bin sqlplus] $user_pass @$file" "r"]
-
+            set fp [open "|[file join $::env(ORACLE_HOME) bin sqlplus] $user_pass @$file" "r+"]
+            fconfigure $fp -buffering line
+            puts $fp "exit"
+            
             while { [gets $fp line] >= 0 } {
                 # Don't bother writing out lines which are purely whitespace.
                 if { ![string is space $line] } {