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.19 -r1.88.2.20
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	23 May 2017 20:35:21 -0000	1.88.2.19
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	1 Aug 2017 10:18:02 -0000	1.88.2.20
@@ -252,6 +252,7 @@
     } else {
         set result [nsv_get ad_database_type .]
         ns_log Warning "db_type '$result' had to be obtained from the nsv 'ad_database_type'"
+        set ::acs::database_type $result
     }
     return $result
 }