--- a/src/settings.sml	Sat Jul 18 10:27:32 2009 -0400
+++ b/src/settings.sml	Sat Jul 18 11:01:48 2009 -0400
@@ -380,4 +380,16 @@
       | SOME db => curDb := db
 fun currentDbms () = !curDb
 
+val dbstring = ref (NONE : string option)
+fun setDbstring so = dbstring := so
+fun getDbstring () = !dbstring
+
+val exe = ref (NONE : string option)
+fun setExe so = exe := so
+fun getExe () = !exe
+
+val sql = ref (NONE : string option)
+fun setSql so = sql := so
+fun getSql () = !sql
+
 end