@@ -16,18 +16,18 @@
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 
 ;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')
 
-(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking format)
-(import (prefix sqlite3 sqlite3:))
-
-(declare (unit tasks))
-(declare (uses db))
-(declare (uses rmt))
-(declare (uses common))
-(declare (uses pgdb))
+;; (use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking format)
+;; (import (prefix sqlite3 sqlite3:))
+;; 
+;; (declare (unit tasks))
+;; (declare (uses db))
+;; (declare (uses rmt))
+;; (declare (uses common))
+;; (declare (uses pgdb))
 
 ;; (import pgdb) ;; pgdb is a module
 
 (include "task_records.scm")
 (include "db_records.scm")
@@ -107,25 +107,25 @@
 	     (debug:print 5 *default-log-port* " exn=" (condition->list exn))))
        (let* ((dbpath        (db:dbfile-path )) ;; (tasks:get-task-db-path))
 	      (dbfile       (conc dbpath "/monitor.db"))
 	      (avail        (tasks:wait-on-journal dbpath 10)) ;; wait up to about 10 seconds for the journal to go away
 	      (exists       (common:file-exists? dbpath))
-	      (write-access (file-write-access? dbpath))
+	      (write-access (file-writable? dbpath))
 	      (mdb          (cond ;; what the hek is *toppath* doing here?
-			     ((and (string? *toppath*)(file-write-access? *toppath*))
+			     ((and (string? *toppath*)(file-writable? *toppath*))
 			      (sqlite3:open-database dbfile))
-			     ((file-read-access? dbpath)    (sqlite3:open-database dbfile))
+			     ((file-readable? dbpath)    (sqlite3:open-database dbfile))
 			     (else (sqlite3:open-database ":memory:")))) ;; (never-give-up-open-db dbpath))
 	      (handler      (sqlite3:make-busy-timeout 36000)))
 	 (if (and exists
 		  (not write-access))
 	     (set! *db-write-access* write-access)) ;; only unset so other db's also can use this control
 	 (sqlite3:set-busy-handler! mdb handler)
 	 (db:set-sync mdb) ;; (sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
 	 ;;  (if (or (and (not exists)
-	 ;; 	      (file-write-access? *toppath*))
-	 ;; 	 (not (file-read-access? dbpath)))
+	 ;; 	      (file-writable? *toppath*))
+	 ;; 	 (not (file-readable? dbpath)))
 	 ;;      (begin
 	 ;; 
 	 ;; TASKS QUEUE MOVED TO main.db
 	 ;;
 	 ;; (sqlite3:execute mdb "CREATE TABLE IF NOT EXISTS tasks_queue (id INTEGER PRIMARY KEY,