Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -150,11 +150,11 @@
                    ;; SERVERS
                    ((start-server)                    (apply server:kind-run params))
                    ((kill-server)                     (set! *server-run* #f))
 
                    ;; TESTS
-                   ((test-set-state-status-by-id)     (apply db:test-set-state-status-by-id dbstruct params))
+                   ((test-set-state-status-by-id)     (apply mt:test-set-state-status-by-id dbstruct params))
                    ((delete-test-records)             (apply db:delete-test-records dbstruct params))
                    ((delete-old-deleted-test-records) (apply db:delete-old-deleted-test-records dbstruct params))
                    ((test-set-state-status)           (apply db:test-set-state-status dbstruct params))
                    ((test-set-top-process-pid)        (apply db:test-set-top-process-pid dbstruct params))
                    ((set-state-status-and-roll-up-items) (apply db:set-state-status-and-roll-up-items dbstruct params))

Index: client.scm
==================================================================
--- client.scm
+++ client.scm
@@ -95,11 +95,11 @@
 				      ((http)(http-transport:client-connect host port))))
 			 (ping-res  (case *transport-type* 
 				      ((http)(rmt:login-no-auto-client-setup start-res)))))
 		    (if (and start-res
 			     ping-res)
-			(begin
+			(let ((runremote (or area-dat *runremote*))) ;; it might have been generated only a few statements ago
 			  (remote-conndat-set! runremote start-res) ;; (hash-table-set! runremote run-id start-res)
 			  (debug:print-info 2 *default-log-port* "connected to " (http-transport:server-dat-make-url start-res))
 			  start-res)
 			(begin    ;; login failed but have a server record, clean out the record and try again
 			  (debug:print-info 0 *default-log-port* "client:setup, login failed, will attempt to start server ... start-res=" start-res ", server-dat=" server-dat) ;; had runid.  Fixes part of Randy;s ticket 1405717332

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -248,11 +248,11 @@
 ;;
 (define (common:rotate-logs)
   (if (not (directory-exists? "logs"))(create-directory "logs"))
   (directory-fold 
    (lambda (file rem)
-     (common:debug-handle-exceptions #t
+     (handle-exceptions
       exn
       (debug:print-info 0 *default-log-port* "failed to rotate log " file ", probably handled by another process.")
       (let* ((fullname (conc "logs/" file))
              (file-age (- (current-seconds)(file-modification-time fullname))))
         (if (or (and (string-match "^.*.log" file)
@@ -291,11 +291,11 @@
             (cond
              ((get-environment-variable "MT_SKIP_DB_MIGRATE") #t)
              ((and (file-exists? mtconf) (file-exists? dbfile) (not read-only)
                    (eq? (current-user-id)(file-owner mtconf))) ;; safe to run -cleanup-db
               (debug:print 0 *default-log-port* "   I see you are the owner of megatest.config, attempting to cleanup and reset to new version")
-              (common:debug-handle-exceptions #t
+              (handle-exceptions
                exn
                (begin
                  (debug:print 0 *default-log-port* "Failed to switch versions.")
                  (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
                  (print-call-chain (current-error-port))
@@ -397,13 +397,13 @@
 
 (define (common:get-megatest-exe)
   (or (getenv "MT_MEGATEST") "megatest"))
 
 (define (common:read-encoded-string instr)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
-   (common:debug-handle-exceptions #t
+   (handle-exceptions
     exn
     (begin
       (debug:print-error 0 *default-log-port* "received bad encoded string \"" instr "\", message: " ((condition-property-accessor 'exn 'message) exn))
       (print-call-chain (current-error-port))
       #f)
@@ -840,11 +840,11 @@
 		  (loop (car tal)(cdr tal))))))))
   
 (define (common:get-install-area)
   (let ((exe-path (car (argv))))
     (if (file-exists? exe-path)
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 #f
 	 (pathname-directory
 	  (pathname-directory 
 	   (pathname-directory exe-path))))
@@ -858,11 +858,11 @@
       (let loop ((hed (car dirs))
 		 (tal (cdr dirs)))
 	(let ((res (or (and (directory? hed)
 			    (file-write-access? hed)
 			    hed)
-		       (common:debug-handle-exceptions #t
+		       (handle-exceptions
 			exn
 			#f
 			(create-directory hed #t)))))
 	  (if (and (string? res)
 		   (directory? res))
@@ -874,18 +874,18 @@
 ;; return the youngest timestamp . filename
 ;;
 (define (common:get-youngest glob-list)
   (let ((all-files (apply append
 			  (map (lambda (patt)
-				 (common:debug-handle-exceptions #t
+				 (handle-exceptions
 				     exn
 				     '()
 				   (glob patt)))
 			       glob-list))))
     (fold (lambda (fname res)
 	    (let ((last-mod (car res))
-		  (curmod   (common:debug-handle-exceptions #t
+		  (curmod   (handle-exceptions
 				exn
 				0
 			      (file-modification-time fname))))
 	      (if (> curmod last-mod)
 		  (list curmod fname)
@@ -1233,11 +1233,11 @@
 
 ;; make "nice-path" available in config files and the repl
 (define nice-path common:nice-path)
 
 (define (common:read-link-f path)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
       exn
       (begin
 	(debug:print-error 0 *default-log-port* "command \"/bin/readlink -f " path "\" failed.")
 	path) ;; just give up
     (with-input-from-pipe

Index: common_records.scm
==================================================================
--- common_records.scm
+++ common_records.scm
@@ -28,11 +28,11 @@
     ((_ (name arg ...) body ...)
      (define-syntax name (syntax-rules () ((name arg ...) (begin body ...)))))))
 
 ;; (define-syntax common:handle-exceptions
 ;;   (syntax-rules ()
-;;     ((_ exn-in errstmt ...)(common:debug-handle-exceptions #t exn-in errstmt ...))))
+;;     ((_ exn-in errstmt ...)(handle-exceptions exn-in errstmt ...))))
 
 (define-syntax common:debug-handle-exceptions
   (syntax-rules ()
     ((_ debug exn errstmt body ...)
      (if debug

Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -49,11 +49,11 @@
 		   (config:assoc-safe-add
 		    (hash-table-ref/default cfgdat section-name '())
 		    var value metadata: metadata)))
 
 (define (config:eval-string-in-environment str)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (debug:print-error 0 *default-log-port* "problem evaluating \"" str "\" in the shell environment")
      #f)
    (let ((cmdres (process:cmd-run->list (conc "echo " str))))
@@ -109,11 +109,11 @@
 				   (conc "(lambda (ht)(config-lookup ht \"" sect "\" \"" var "\"))")))
 				((runconfigs-get rget) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				;; ((rget)           (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				(else "(lambda (ht)(print \"ERROR\") \"ERROR\")"))))
 		;; (print "fullcmd=" fullcmd)
-		(common:debug-handle-exceptions #t
+		(handle-exceptions
 		 exn
 		 (begin
 		   (debug:print 0 *default-log-port* "WARNING: failed to process config input \"" l "\"")
 		   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 		   ;; (print "exn=" (condition->list exn))

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -465,19 +465,19 @@
 	       (item-path  (db:test-get-item-path testdat))
 	       ;; this next block was added to fix a bug where variables were
                ;; needed. Revisit this.
 	       (runconfig  (let ((runconfigf (conc  *toppath* "/runconfigs.config"))) ;; no rush but it would be good to convert this call to use runconfig:read
 	 		     (if (file-exists? runconfigf)
-	 			 (common:debug-handle-exceptions #t
+	 			 (handle-exceptions
                                    exn
                                    #f  ;; do nothing, just keep on trucking ....
                                    (setup-env-defaults runconfigf run-id (make-hash-table) keydat environ-patt: keystring))
 	 			 (make-hash-table))))
 	       (testconfig    (begin
 				;; (runs:set-megatest-env-vars run-id inrunname: runname testname: test-name itempath: item-path)
 				(runs:set-megatest-env-vars run-id inkeyvals: keydat inrunname: runname intarget: keystring testname: testname itempath: item-path) ;; these may be needed by the launching process
-				(common:debug-handle-exceptions #t
+				(handle-exceptions
 				 exn  ;; NOTE: I've no idea why this was written this way. Research, study and fix needed!
 				 (tests:get-testconfig (db:test-get-testname testdat) (db:test-get-item-path testdat) test-registry #f)
 				 (tests:get-testconfig (db:test-get-testname testdat) item-path test-registry #t))))
 	       (viewlog    (lambda (x)
 			     (if (file-exists? logfile)
@@ -513,11 +513,11 @@
 							    (> (current-milliseconds)(+ last-update 250))) ;; every half seconds if db touched
 						       (> (current-milliseconds)(+ last-update 10000))     ;; force update even 10 seconds
 						       request-update))
 				    (newtestdat (if need-update 
 						    ;; NOTE: BUG HIDER, try to eliminate this exception handler
-						    (common:debug-handle-exceptions #t
+						    (handle-exceptions
 						     exn 
 						     (debug:print-info 0 *default-log-port* "test db access issue in examine test for run-id " run-id ", test-id " test-id ": " ((condition-property-accessor 'exn 'message) exn))
 						     (rmt:get-test-info-by-id run-id test-id )))))
 			       ;; (print "INFO: need-update= " need-update " curr-mod-time = " curr-mod-time)
 			       (cond

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1899,11 +1899,11 @@
 	 (viewgen (configf:lookup views-cfgdat view-name "viewgen"))
 	 (updater (configf:lookup views-cfgdat view-name "updater"))
 	 (result-child #f))
     (if (and (file-exists? source)
 	     (file-read-access? source))
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain)
 	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	   (debug:print 0 *default-log-port* "ERROR: failed to load " source ", try loading in the repl: megatest -repl")
@@ -1911,11 +1911,11 @@
 	 (load source))
 	(begin
 	  (debug:print 0 *default-log-port* "ERROR: cannot find file to load: \"" source "\" for user view " view-name)))
     ;; now run the user supplied definition for the tab view
     (if success
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain)
 	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	   (debug:print 0 *default-log-port* "ERROR: failed call procedure " viewgen
@@ -1928,11 +1928,11 @@
 	       ((eval (string->symbol viewgen)) commondat tabs tab-num view-name views-cfgdat *configdat*))))
     ;; and finally set the updater
     (if success
 	(dboard:commondat-add-updater commondat
 				      (lambda ()
-					(common:debug-handle-exceptions #t
+					(handle-exceptions
 					 exn
 					 (begin
 					   (print-call-chain)
 					   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 					   (debug:print 0 *default-log-port* "ERROR: failed call procedure \"" updater
@@ -2715,11 +2715,11 @@
 
 ;; Force creation of the db in case it isn't already there.
 ;; (tasks:open-db)
 
 (define (dashboard:get-youngest-run-db-mod-time dbdir)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (debug:print 0 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: " ((condition-property-accessor 'exn 'message) exn) " db-dir="dbdir)
      (current-seconds)) ;; something went wrong - just print an error and return current-seconds
    (common:max (map (lambda (filen)
@@ -3013,11 +3013,11 @@
 				      (reverse
 				       (sqlite3:fold-row
 					(lambda (res t var val)
 					  (cons (vector t var val) res))
 					'() db all-dat-qrystr)))
-		     (let ((zeropt (common:debug-handle-exceptions #t
+		     (let ((zeropt (handle-exceptions
 				    exn
 				    #f
 				    (sqlite3:first-row db all-dat-qrystr))))
 		       (if zeropt ;; NOTE: Add zeropt to the beginning of the list as the list was reversed above.
 			   (hash-table-set! res-ht

Index: datashare.scm
==================================================================
--- datashare.scm
+++ datashare.scm
@@ -228,11 +228,11 @@
 	     (file-read-access? path))
 	(let* ((dbpath    (conc path "/datashare.db"))
 	       (writeable (file-write-access? dbpath))
 	       (dbexists  (file-exists? dbpath))
 	       (handler   (make-busy-timeout 136000)))
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
 			  ((condition-property-accessor 'exn 'message) exn))
 	     (exit))
@@ -243,11 +243,11 @@
 		(datashare:initialize-db db)))
 	  db)
 	(print "ERROR: invalid path for storing database: " path))))
 
 (define (open-run-close-exception-handling proc idb . params)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (let ((sleep-time (random 30))
          (err-status ((condition-property-accessor 'sqlite3 'status #f) exn)))
      (case err-status
        ((busy)

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -74,11 +74,11 @@
     (print-call-chain (current-error-port))))
 
 ;; convert to -inline 
 ;;
 (define (db:first-result-default db stmt default . params)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (let ((err-status ((condition-property-accessor 'sqlite3 'status #f) exn)))
      ;; check for (exn sqlite3) ((condition-property-accessor 'exn 'message) exn)
      (if (eq? err-status 'done)
 	 default
@@ -145,11 +145,11 @@
     (if (and use-mutex
 	     (common:low-noise-print 120 "over-50-parallel-api-requests"))
 	(debug:print-info 0 *default-log-port* *api-process-request-count* " parallel api requests being processed in process " (current-process-id) ", throttling access"))
     (if (common:low-noise-print 600 (conc "parallel-api-requests" *max-api-process-requests*))
 	(debug:print-info 2 *default-log-port* "Parallel api request count: " *api-process-request-count* " max parallel requests: " *max-api-process-requests*))
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
      exn
      (begin
        (print-call-chain (current-error-port))
        (debug:print-error 0 *default-log-port* "sqlite3 issue in db:with-db, dbstruct=" dbstruct ", run-id=" run-id ", proc=" proc ", params=" params " error: " ((condition-property-accessor 'exn 'message) exn))
        ;; there is no recovering at this time. exit
@@ -190,11 +190,11 @@
 ;; 
 ;; If run-id is #f return to create and retrieve the path where the db will live.
 ;;
 (define (db:dbfile-path . junk) ;;  run-id)
   (let* ((dbdir           (common:get-db-tmp-area)))
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
      exn
      (begin
        (debug:print-error 0 *default-log-port* "Couldn't create path to " dbdir)
        (exit 1))
      (if (not (directory? dbdir))(create-directory dbdir #t)))
@@ -259,11 +259,11 @@
 ;; ;; 
 ;; (define (db:open-rundb dbstruct run-id #!key (attemptnum 0)(do-not-open #f)) ;;  (conc *toppath* "/megatest.db") (car *configinfo*)))
 ;;   (let* ((dbfile       (db:dbfile-path run-id)) ;; (conc toppath "/db/" run-id ".db"))
 ;;          (dbexists     (file-exists? dbfile))
 ;;          (db           (db:lock-create-open dbfile (lambda (db)
-;;                                                      (common:debug-handle-exceptions #t
+;;                                                      (handle-exceptions
 ;;                                                       exn
 ;;                                                       (begin
 ;;                                                         ;; (release-dot-lock dbpath)
 ;;                                                         (if (> attemptnum 2)
 ;;                                                             (debug:print-error 0 *default-log-port* "tried twice, cannot create/initialize db for run-id " run-id ", at path " dbpath)
@@ -540,11 +540,11 @@
      ;; handle special cases, megatest.db and monitor.db
      ;; 
      ;;  NOPE: apply this same approach to all db files
      ;;
      (else ;; ((equal? fname "megatest.db") ;; this file can be regenerated if needed
-      (common:debug-handle-exceptions #t
+      (handle-exceptions
        exn
        (begin
 	 ;; (db:move-and-recreate-db dbdat)
 	 (if (> numtries 0)
 	     (db:repair-db dbdat numtries: (- numtries 1))
@@ -584,11 +584,11 @@
 ;; if last-update specified ("field-name" . time-in-seconds)
 ;;    then sync only records where field-name >= time-in-seconds
 ;;    IFF field-name exists
 ;;
 (define (db:sync-tables tbls last-update fromdb todb . slave-dbs)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (debug:print 0 *default-log-port* "EXCEPTION: database probably overloaded or unreadable in db:sync-tables.")
      (print-call-chain (current-error-port))
      (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -1051,11 +1051,11 @@
 	(debug:print-info 11 *default-log-port* "open-run-close-no-exception-handling END" )
 	res)
       #f))
 
 (define (open-run-close-exception-handling proc idb . params)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (let ((sleep-time (random 30))
 	 (err-status ((condition-property-accessor 'sqlite3 'status #f) exn)))
      (case err-status
        ((busy)
@@ -3676,11 +3676,11 @@
       (and dbdat (db:dbdat-get-db dbdat))
       (if dbdat
 	  (let* ((dbpath (db:dbdat-get-path dbdat))
 		 (db     (db:dbdat-get-db   dbdat)) ;; we'll return this so (db:delay--if-busy can be called inline
 		 (dbfj   (conc dbpath "-journal")))
-	    (if (common:debug-handle-exceptions #t
+	    (if (handle-exceptions
 		 exn
 		 (begin
 		   (debug:print-info 0 *default-log-port* "WARNING: failed to test for existance of " dbfj)
 		   (thread-sleep! 1)
 		   (db:delay-if-busy count (- count 1))) 

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -363,11 +363,11 @@
 		     (pids (delete-duplicates (filter number? (list pid1 pid2)))))
 		(if (not (null? pids))
 		    (begin
 		      (for-each
 		       (lambda (pid)
-			 (common:debug-handle-exceptions #t
+			 (handle-exceptions
 			  exn
 			  (begin
 			    (debug:print-info 0 *default-log-port* "Unable to kill process with pid " pid ", possibly already killed.")
 			    (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn)))
 			  (debug:print 0 *default-log-port* "WARNING: Request received to kill job " pid) ;;  " (attempt # " kill-tries ")")
@@ -378,11 +378,11 @@
 				 (process-signal pid-num signal/term))
 			       (process:get-sub-pids pid))
 			  (thread-sleep! 5)
 			  ;; (if (process:process-alive? pid)
 			  (map (lambda (pid-num)
-				 (common:debug-handle-exceptions #t
+				 (handle-exceptions
 				  exn
 				  #f
 				  (process-signal pid-num signal/kill)))
 			       (process:get-sub-pids pid))))
 		       ;;    (debug:print-info 0 *default-log-port* "not killing process " pid " as it is not alive"))))
@@ -846,18 +846,18 @@
 			 (if *configdat* (configf:lookup *configdat* "setup" "linktree") #f))))
       (if linktree
 	  (begin
 	    (if (not (file-exists? linktree))
 		(begin
-		  (common:debug-handle-exceptions #t
+		  (handle-exceptions
 		   exn
 		   (begin
 		     (debug:print-error 0 *default-log-port* "Something went wrong when trying to create linktree dir at " linktree)
 		     (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 		     (exit 1))
 		   (create-directory linktree #t))))
-	    (common:debug-handle-exceptions #t
+	    (handle-exceptions
 	     exn
 	     (begin
 	       (debug:print-error 0 *default-log-port* "Something went wrong when trying to create link to linktree at " *toppath*)
 	       (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn)))
 	     (let ((tlink (conc *toppath* "/lt")))
@@ -952,11 +952,11 @@
 	  (debug:print 0 *default-log-port* "WARNING: linktree did not exist! Creating it now at " linktree)
 	  (create-directory linktree #t))) ;; (system (conc "mkdir -p " linktree))))
     ;; create the directory for the tests dir links, this is needed no matter what...
     (if (and (not (directory-exists? lnkbase))
 	     (not (file-exists? lnkbase)))
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (debug:print-error 0 *default-log-port* "Problem creating linktree base at " lnkbase)
 	   (print-error-message exn (current-error-port)))
 	 (create-directory lnkbase #t)))
@@ -971,28 +971,28 @@
     ;; to the iteration. use pathname-directory to trim the path by one
     ;; level
     (if (not not-iterated) ;; i.e. iterated
 	(let ((iterated-parent  (pathname-directory (conc lnkpath "/" item-path))))
 	  (debug:print-info 2 *default-log-port* "Creating iterated parent " iterated-parent)
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print-error 0 *default-log-port* " Failed to create directory " iterated-parent ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	     (exit 1))
 	   (create-directory iterated-parent #t))))
 
     (if (symbolic-link? lnkpath) 
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (debug:print-error 0 *default-log-port* " Failed to remove symlink " lnkpath ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	   (exit 1))
 	 (delete-file lnkpath)))
 
     (if (not (or (file-exists? lnkpath)
 		 (symbolic-link? lnkpath)))
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (debug:print-error 0 *default-log-port* " Failed to create symlink " lnkpath ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	   (exit 1))
 	 (create-symbolic-link toptest-path lnkpath)))
@@ -1021,11 +1021,11 @@
 	  ;; (rmt:general-call 'test-set-rundir run-id lnkpath testname "") ;; toptest-path)
 	  (if (or (not curr-test-path)
 		  (not (directory-exists? toptest-path)))
 	      (begin
 		(debug:print-info 2 *default-log-port* "Creating " toptest-path " and link " lnkpath)
-		(common:debug-handle-exceptions #t
+		(handle-exceptions
 		 exn
 		 #f ;; don't care to catch and deal with errors here for now.
 		 (create-directory toptest-path #t))
 		(hash-table-set! *toptest-paths* testname toptest-path)))))
 
@@ -1033,11 +1033,11 @@
     ;; been created. Now, if this is an iterated test the real test dir must be created
     (if (not not-iterated) ;; this is an iterated test
 	(begin ;; (let ((lnktarget (conc lnkpath "/" item-path)))
 	  (debug:print 2 *default-log-port* "Setting up sub test run area")
 	  (debug:print 2 *default-log-port* " - creating run area in " test-path)
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print-error 0 *default-log-port* " Failed to create directory " test-path ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	     (exit 1))
 	   (create-directory test-path #t))
@@ -1044,11 +1044,11 @@
 	  (debug:print 2 *default-log-port* 
 		       " - creating link from: " test-path "\n"
 		       "                   to: " lnktarget)
 
 	  ;; If there is already a symlink delete it and recreate it.
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print-error 0 *default-log-port* " Failed to re-create link " lnktarget ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	     (exit))
 	   (if (symbolic-link? lnktarget)     (delete-file lnktarget))

Index: lock-queue.scm
==================================================================
--- lock-queue.scm
+++ lock-queue.scm
@@ -39,11 +39,11 @@
 	 (db       (sqlite3:open-database actualfname))
 	 (handler  (make-busy-timeout 136000)))
     (if dbexists
 	(vector db actualfname)
 	(begin
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (thread-sleep! 10)
 	     (if (> count 0)
 		 (lock-queue:open-db fname count: (- count 1))
@@ -69,11 +69,11 @@
     (sqlite3:set-busy-handler! db handler)
     (vector db actualfname)))
 
 (define (lock-queue:set-state dbdat test-id newstate #!key (remtries 10))
   (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (if (> remtries 0)
        (begin
 	 (debug:print 0 *default-log-port* "WARNING: exception on lock-queue:set-state. Trying again in 30 seconds.")
 	 (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -87,11 +87,11 @@
 		    test-id)))
 
 (define (lock-queue:any-younger? dbdat mystart test-id #!key (remtries 10))
   ;; no need to wait on journal on read only queries
   ;; (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (if (> remtries 0)
        (begin
 	 (debug:print 0 *default-log-port* "WARNING: exception on lock-queue:any-younger. Removing lockdb and trying again in 5 seconds.")
 	 (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -116,11 +116,11 @@
   (let* ((res       #f)
 	 (db        (lock-queue:db-dat-get-db dbdat))
 	 (lckqry    (sqlite3:prepare db "SELECT test_id,run_lock FROM runlocks WHERE run_lock='locked';"))
 	 (mklckqry  (sqlite3:prepare db "INSERT INTO runlocks (test_id,run_lock) VALUES (?,'locked');")))
     (let ((result 
-	   (common:debug-handle-exceptions #t
+	   (handle-exceptions
 	    exn
 	    (begin
 	      (debug:print 0 *default-log-port* "WARNING: failed to get queue lock. Removing lock db and returning fail") ;; Will try again in a few seconds")
 	      (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	      (thread-sleep! 10)
@@ -148,11 +148,11 @@
       result)))
 
 (define (lock-queue:release-lock fname test-id #!key (count 10))
   (let* ((dbdat (lock-queue:open-db fname)))
     (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200 "lock-queue:release-lock; waiting on journal")
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
      exn
      (begin
        (debug:print 0 *default-log-port* "WARNING: Failed to release queue lock. Will try again in few seconds")
        (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
        (thread-sleep! (/ count 10))
@@ -161,11 +161,11 @@
 	     (sqlite3:finalize! (lock-queue:db-dat-get-db dbdat))
 	     (lock-queue:release-lock fname test-id count: (- count 1)))
 	   (let ((journal (conc fname "-journal")))
 	     ;; If we've tried ten times and failed there is a serious problem
 	     ;; try to remove the lock db and allow it to be recreated
-	     (common:debug-handle-exceptions #t
+	     (handle-exceptions
 	      exn
 	      #f
 	      (if (file-exists? journal)(delete-file journal))
 	      (if (file-exists? fname)  (delete-file fname))
 	      #f))))
@@ -173,11 +173,11 @@
      (sqlite3:finalize! (lock-queue:db-dat-get-db dbdat)))))
 
 (define (lock-queue:steal-lock dbdat test-id #!key (count 10))
   (debug:print-info 0 *default-log-port* "Attempting to steal lock at " (lock-queue:db-dat-get-path dbdat))
   (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200 "lock-queue:steal-lock; waiting on journal")
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (debug:print 0 *default-log-port* "WARNING: Failed to steal queue lock. Will try again in few seconds")
      (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
      (thread-sleep! 10)
@@ -194,11 +194,11 @@
 (define (lock-queue:wait-turn fname test-id #!key (count 10)(waiting-msg #f))
   (let* ((dbdat   (lock-queue:open-db fname))
 	 (mystart (current-seconds))
 	 (db      (lock-queue:db-dat-get-db dbdat)))
     ;; (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200 waiting-msg: "lock-queue:wait-turn; waiting on journal file")
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
      exn
      (begin
        (debug:print 0 *default-log-port* "WARNING: Failed to find out if it is ok to skip the wait queue. Will try again in few seconds")
        (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
        (print-call-chain (current-error-port))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -467,11 +467,11 @@
       (exit-handler (lambda (#!optional (exit-code 0))
 		      (printf "Preparing to exit with exit code ~A ...\n" exit-code)
 		      (for-each
 		       
 		       (lambda (pid)
-			 (common:debug-handle-exceptions #t
+			 (handle-exceptions
 			  exn
 			  #t
 			  (let-values (((pid-val exit-status exit-code) (process-wait pid #t)))
 				      (if (or (eq? pid-val pid)
 					      (eq? pid-val 0))
@@ -538,11 +538,11 @@
 		    (debug:print-info 0 *default-log-port* "No cached megatest or runconfigs files found. None removed.")
 		    (begin
 		      (debug:print-info 0 *default-log-port* "Removing cached files:\n    " (string-intersperse files "\n    "))
 		      (for-each 
 		       (lambda (f)
-			 (common:debug-handle-exceptions #t
+			 (handle-exceptions
 			     exn
 			     (debug:print 0 *default-log-port* "WARNING: Failed to remove file " f)
 			   (delete-file f)))
 		       files))))
 	      (debug:print-error 0 *default-log-port* "-clean-cache requires -runname."))

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -201,15 +201,15 @@
 				  (or (configf:lookup torun contour runkey)
 				      '()))))
 
 (define (fossil:clone-or-sync url name dest-dir)
   (let ((targ-file (conc dest-dir "/" name))) ;; do not force usage of .fossil extension
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
 	exn
 	(print "ERROR: failed to create directory " dest-dir " message: " ((condition-property-accessor 'exn 'message) exn))
       (create-directory dest-dir #t))
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
 	exn
 	(print "ERROR: failed to clone or sync 1ossil " url " message: " ((condition-property-accessor 'exn 'message) exn))
       (if (file-exists? targ-file)
 	  (system (conc "fossil pull --once " url " -R " targ-file))
 	  (system (conc "fossil clone " url " " targ-file))
@@ -216,19 +216,19 @@
 	  ))))
 
 (define (fossil:last-change-node-and-time fossils-dir fossil-name branch)
   (let* ((fossil-file   (conc fossils-dir "/" fossil-name))
 	 (timeline-port (if (file-read-access? fossil-file)
-			    (common:debug-handle-exceptions #t
+			    (handle-exceptions
 				exn
 				(begin
 				  (print "ERROR: failed to get timeline from " fossil-file " message: " ((condition-property-accessor 'exn 'message) exn))
 				  #f)
 			      (open-input-pipe (conc "fossil timeline -t ci -W 0 -n 0 -R " fossil-file)))
 			    #f))
 	 (get-line      (lambda ()
-			  (common:debug-handle-exceptions #t
+			  (handle-exceptions
 			      exn
 			      (begin
 				(print "ERROR: failed to read from file " fossil-file " message: "  ((condition-property-accessor 'exn 'message) exn))
 				#f)
 			    (read-line timeline-port))))
@@ -450,11 +450,11 @@
 	 (new-target (if area-xlatr
 			 (let ((xlatr-key (string->symbol area-xlatr)))
 			   (if (alist-ref xlatr-key *target-mappers*)
 			       (begin
 				 (print "Using target mapper: " area-xlatr)
-				 (common:debug-handle-exceptions #t
+				 (handle-exceptions
 				     exn
 				     (begin
 				       (print "FAILED TO RUN TARGET MAPPER FOR " area ", called " area-xlatr)
 				       (print "   function is: " (alist-ref xlatr-key *target-mappers*))
 				       (print " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -595,11 +595,11 @@
 		       (lambda (cmd)
 			 (print "cmd: " cmd)
 			 (let* ((script (car cmd))
 				(params (cdr cmd))
 				(cmd    (conc script " " contour " " runkey " " std-runname " " action " " params))
-				(res    (common:debug-handle-exceptions #t
+				(res    (handle-exceptions
 					    exn
 					    #f
 					  (print "Running " cmd)
 					  (with-input-from-pipe cmd read-lines))))
 			   (if (and res (not (null? res)))
@@ -788,11 +788,11 @@
 ;;
 (define (dispatch-commands mtconf toppath)
   ;; we are expecting a directory "logs", check and create it, create the log in /tmp if not able to create logs dir
   (let ((logdir
 	 (if (if (not (directory? "logs"))
-		 (common:debug-handle-exceptions #t
+		 (handle-exceptions
 		     exn
 		     #f
 		   (create-directory "logs")
 		   #t)
 		 #t)

Index: portlogger.scm
==================================================================
--- portlogger.scm
+++ portlogger.scm
@@ -50,11 +50,11 @@
     db))
 
 (define (portlogger:open-run-close proc . params)
   (let* ((fname  (conc "/tmp/." (current-user-name) "-portlogger.db"))
 	 (avail  (tasks:wait-on-journal fname 10))) ;; wait up to about 10 seconds for the journal to go away
-    ;;(common:debug-handle-exceptions #t
+    ;;(handle-exceptions
     ;; exn
     ;; (begin
     ;;   ;; (release-dot-lock fname)
     ;;   (debug:print-error 0 *default-log-port* "portlogger:open-run-close failed. " proc " " params)
     ;;   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -157,11 +157,11 @@
 (define (portlogger:main . args)
   (let* ((dbfname (conc "/tmp/." (current-user-name) "-portlogger.db"))
 	 (db      (portlogger:open-db dbfname))
 	 (numargs (length args))
 	 (result  
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print 0 *default-log-port* "EXCEPTION: portlogger database at " dbfname " probably overloaded or unreadable. Try removing it.")
 	     (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	     (print "exn=" (condition->list exn))

Index: process.scm
==================================================================
--- process.scm
+++ process.scm
@@ -23,11 +23,11 @@
 	(loop (conc res (read-char port)))
 	res)))
 
 (define (process:cmd-run-with-stderr->list cmd . params)
   ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
-;;  (common:debug-handle-exceptions #t
+;;  (handle-exceptions
 ;;   exn
 ;;   (begin
 ;;     (print "ERROR:  Failed to run command: " cmd " " (string-intersperse params " "))
 ;;     (print "       " ((condition-property-accessor 'exn 'message) exn))
 ;;     #f)
@@ -48,11 +48,11 @@
 	     (close-output-port fho)
 	     result))))) ;; )
 
 (define (process:cmd-run-proc-each-line cmd proc . params)
   ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (print "ERROR:  Failed to run command: " cmd " " (string-intersperse params " "))
      (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
      (print "exn=" (condition->list exn))
@@ -140,21 +140,21 @@
 	   (let ((pid (string->number inl)))
 	     (if proc (proc pid))
 	     (loop (read-line) (cons pid res))))))))
 
 (define (process:alive? pid)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    ;; possibly pid is a process not a child, look in /proc to see if it is running still
    (file-exists? (conc "/proc/" pid))
    (let-values (((rpid exit-type exit-signal)(process-wait pid #t)))
        (and (number? rpid)
 	    (equal? rpid pid)))))
 
 (define (process:alive-on-host? host pid)
   (let ((cmd (conc "ssh " host " ps -o pid= -p " pid)))
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
      exn
      #f ;; anything goes wrong - assume the process in NOT running.
      (with-input-from-pipe 
       cmd
       (lambda ()

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -33,12 +33,13 @@
 ;; if a server is either running or in the process of starting call client:setup
 ;; else return #f to let the calling proc know that there is no server available
 ;;
 (define (rmt:get-connection-info areapath #!key (area-dat #f)) ;; TODO: push areapath down.
   (let* ((runremote (or area-dat *runremote*))
-	 (cinfo     (remote-conndat runremote))
-        (run-id 0))
+	 (cinfo     (if (remote? runremote)
+			(remote-conndat runremote)
+			#f)))
     (if cinfo
 	cinfo
 	(if (server:check-if-running areapath)
 	    (client:setup areapath)
 	    #f))))
@@ -194,11 +195,11 @@
 	      (server:start-and-wait *toppath*)
 	      (rmt:send-receive cmd rid params attemptnum: (+ attemptnum 1)))))))))
 
 ;; (define (rmt:update-db-stats run-id rawcmd params duration)
 ;;   (mutex-lock! *db-stats-mutex*)
-;;   (common:debug-handle-exceptions #t
+;;   (handle-exceptions
 ;;    exn
 ;;    (begin
 ;;      (debug:print 0 *default-log-port* "WARNING: stats collection failed in update-db-stats")
 ;;      (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 ;;      (print "exn=" (condition->list exn))
@@ -293,11 +294,11 @@
                 (mutex-unlock! *db-multi-sync-mutex*)))))
     res))
 
 (define (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)
   (let* ((run-id   (if run-id run-id 0))
-	 (res  	   (common:debug-handle-exceptions #t
+	 (res  	   (handle-exceptions
 		    exn
 		    #f
 		    (http-transport:client-api-send-receive run-id connection-info cmd params))))
     (if (and res (vector-ref res 0))
 	(vector-ref res 1) ;;; YES!! THIS IS CORRECT!! CHANGE IT HERE, THEN CHANGE rmt:send-receive ALSO!!!

Index: rpc-transport.scm
==================================================================
--- rpc-transport.scm
+++ rpc-transport.scm
@@ -24,11 +24,11 @@
 (include "common_records.scm")
 (include "db_records.scm")
 
 ;; procstr is the name of the procedure to be called as a string
 (define (rpc-transport:autoremote procstr params)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (debug:print 1 *default-log-port* "Remote failed for " proc " " params)
      (apply (eval (string->symbol procstr)) params))
    ;; (if *runremote*
@@ -136,21 +136,21 @@
 	      (debug:print-info 0 *default-log-port* "Max cached queries was " *max-cache-size*)
 	      (debug:print-info 0 *default-log-port* "Server shutdown complete. Exiting")
 	      ))))))
 
 (define (rpc-transport:find-free-port-and-open port)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
 	  (begin
      (print "Failed to bind to port " (rpc:default-server-port) ", trying next port")
      (rpc-transport:find-free-port-and-open (+ port 1)))
    (rpc:default-server-port port)
    (tcp-read-timeout 240000)
    (tcp-listen (rpc:default-server-port) 10000)))
 
 (define (rpc-transport:ping run-id host port)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (print "SERVER_NOT_FOUND")
      (exit 1))
    (let ((login-res ((rpc:procedure 'server:login host port) *toppath*)))
@@ -204,11 +204,11 @@
 ;; 	     (port     (if (and hostinfo (> (length hostdat) 1))(cadr hostdat) #f)))
 ;; 	(if (and port
 ;; 		 (string->number port))
 ;; 	    (let ((portn (string->number port)))
 ;; 	      (debug:print-info 2 *default-log-port* "Setting up to connect to host " host ":" port)
-;; 	      (common:debug-handle-exceptions #t
+;; 	      (handle-exceptions
 ;; 	       exn
 ;; 	       (begin
 ;; 		 (debug:print-error 0 *default-log-port* "Failed to open a connection to the server at host: " host " port: " port)
 ;; 		 (debug:print 0 *default-log-port* "   EXCEPTION: " ((condition-property-accessor 'exn 'message) exn))
 ;; 		 ;; (open-run-close 

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -427,11 +427,11 @@
       (if (> (length (hash-table-keys test-records)) 0)
 	  (let* ((keep-going        #t)
 		 (run-queue-retries 5)
 		 (th1        (make-thread (lambda ()
 					    (runs:run-tests-queue run-id runname test-records keyvals flags test-patts required-tests (any->number reglen) all-tests-registry))
-					    ;; (common:debug-handle-exceptions #t
+					    ;; (handle-exceptions
 					    ;;  exn
 					    ;;  (begin
 					    ;;    (print-call-chain (current-error-port))
 					    ;;    (debug:print-error 0 *default-log-port* "failure in runs:run-tests-queue thread, error: " ((condition-property-accessor 'exn 'message) exn))
 					    ;;    (if (> run-queue-retries 0)
@@ -443,11 +443,11 @@
 		 (th2        (make-thread (lambda ()				    
 					    ;; (rmt:find-and-mark-incomplete-all-runs))))) CAN'T INTERRUPT IT ...
 					    (let ((run-ids (rmt:get-all-run-ids)))
 					      (for-each (lambda (run-id)
 							  (if keep-going
-							      (common:debug-handle-exceptions #t
+							      (handle-exceptions
 							       exn
 							       (debug:print 0 *default-log-port* "error in calling find-and-mark-incomplete for run-id " run-id)
 							       (rmt:find-and-mark-incomplete run-id #f)))) ;; ovr-deadtime)))
 							run-ids)))
 					  "runs: mark-incompletes")))
@@ -1877,18 +1877,18 @@
 	    (debug:print 0 *default-log-port* "WARNING: directory " real-dir " does not exist")
 	    (debug:print 0 *default-log-port* "WARNING: no real directory corrosponding to link " run-dir ", nothing done")))
     (if (symbolic-link? run-dir)
 	(begin
 	  (debug:print-info 1 *default-log-port* "Removing symlink " run-dir)
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (debug:print-error 0 *default-log-port* " Failed to remove symlink " run-dir ((condition-property-accessor 'exn 'message) exn) ", attempting to continue")
 	   (delete-file run-dir)))
 	(if (directory? run-dir)
 	    (if (> (directory-fold (lambda (f x)(+ 1 x)) 0 run-dir) 0)
 		(debug:print 0 *default-log-port* "WARNING: refusing to remove " run-dir " as it is not empty")
-		(common:debug-handle-exceptions #t
+		(handle-exceptions
 		 exn
 		 (debug:print-error 0 *default-log-port* " Failed to remove directory " run-dir ((condition-property-accessor 'exn 'message) exn) ", attempting to continue")
 		 (delete-directory run-dir)))
 	    (if (and run-dir
 		     (not (member run-dir (list "n/a" "/tmp/badname"))))

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -183,11 +183,11 @@
 	  (if (null? server-logs)
 	      '()
 	      (let loop ((hed  (car server-logs))
 			 (tal  (cdr server-logs))
 			 (res '()))
-		(let* ((mod-time  (common:debug-handle-exceptions #t
+		(let* ((mod-time  (handle-exceptions
                                    exn
                                    0
                                    (file-modification-time hed))) ;; default to *very* old so log gets ignored if deleted
 		       (down-time (- (current-seconds) mod-time))
 		       (serv-dat  (if (or (< num-serv-logs 10)
@@ -287,11 +287,11 @@
 (define server:try-running server:run) ;; there is no more per-run servers ;; REMOVE ME. BUG.
 
 (define (server:dotserver-age-seconds areapath)
   (let ((server-file (conc areapath "/.server")))
     (begin
-      (common:debug-handle-exceptions #t
+      (handle-exceptions
        exn
        #f
        (- (current-seconds)
           (file-modification-time server-file))))))
     

Index: sharedat.scm
==================================================================
--- sharedat.scm
+++ sharedat.scm
@@ -112,11 +112,11 @@
 	     (directory? path)
 	     (file-read-access? path))
 	(let* ((dbpath    (conc path "/spublish.db"))
 	       (writeable (file-write-access? dbpath))
 	       (dbexists  (file-exists? dbpath)))
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
 			  ((condition-property-accessor 'exn 'message) exn))
 	     (exit 1))

Index: spublish.scm
==================================================================
--- spublish.scm
+++ spublish.scm
@@ -112,11 +112,11 @@
 	     (directory? path)
 	     (file-read-access? path))
 	(let* ((dbpath    (conc path "/spublish.db"))
 	       (writeable (file-write-access? dbpath))
 	       (dbexists  (file-exists? dbpath)))
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
 			  ((condition-property-accessor 'exn 'message) exn))
 	     (exit 1))

Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -121,11 +121,11 @@
 	     (directory? path)
 	     (file-read-access? path))
 	(let* ((dbpath    (conc path "/" *exe-name* ".db"))
 	       (writeable (file-write-access? dbpath))
 	       (dbexists  (file-exists? dbpath)))
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
 			  ((condition-property-accessor 'exn 'message) exn))
 	     (exit 1))
@@ -485,11 +485,11 @@
     ;;   <packages-metadir>/<package-type>.config file using
     ;;   <upstream-file> as an input
     (if (file-exists? upstream-file)
 	(if (or (not (file-exists? package-config)) ;; if not created call the updater, otherwise call only if upstream newer
 		(> (file-modification-time upstream-file)(file-modification-time package-config)))
-	    (common:debug-handle-exceptions #t
+	    (handle-exceptions
 	     exn
 	     (debug:print-error 0 *default-log-port* "failed to run script " conversion-script " with params " upstream-file " " package-config)
 	     (let ((pid (process-run conversion-script (list upstream-file package-config))))
 	       (process-wait pid)))
 	    (debug:print 0 *default-log-port* "Skipping update of " package-config " from " upstream-file))

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -61,11 +61,11 @@
 
 (define (tasks:get-task-db-path)
   (let ((dbdir  (or (configf:lookup *configdat* "setup" "monitordir")
 		    (configf:lookup *configdat* "setup" "dbdir")
 		    (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))))
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
      exn
      (begin
        (debug:print-error 0 *default-log-port* "Couldn't create path to " dbdir)
        (exit 1))
      (if (not (directory? dbdir))(create-directory dbdir #t)))
@@ -81,11 +81,11 @@
 ;;    ==> open in-mem version
 ;;
 (define (tasks:open-db #!key (numretries 4))
   (if *task-db*
       *task-db*
-      (common:debug-handle-exceptions #t
+      (handle-exceptions
        exn
        (if (> numretries 0)
 	   (begin
 	     (print-call-chain (current-error-port))
 	     (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -469,11 +469,11 @@
 
 (define (tasks:param-key->id dbstruct task-params)
   (db:with-db
    dbstruct #f #f
    (lambda (db)
-     (common:debug-handle-exceptions #t
+     (handle-exceptions
       exn
       #f
       (sqlite3:first-result db "SELECT id FROM tasks_queue WHERE params LIKE ?;"
 			    task-params)))))
 
@@ -485,19 +485,19 @@
 
 (define (tasks:get-records-given-param-key dbstruct param-key state-patt action-patt test-patt)
   (db:with-db
    dbstruct #f #f
    (lambda (db)
-     (common:debug-handle-exceptions #t
+     (handle-exceptions
       exn
       '()
       (sqlite3:first-row db "SELECT id,action,owner,state,target,name,testpatt,keylock,params WHERE
                                params LIKE ? AND state LIKE ? AND action LIKE ? AND testpatt LIKE ?;"
 			 param-key state-patt action-patt test-patt)))))
 
 (define (tasks:find-task-queue-records dbstruct target run-name test-patt state-patt action-patt)
-  ;; (common:debug-handle-exceptions #t
+  ;; (handle-exceptions
   ;;  exn
   ;;  '()
   ;;  (sqlite3:first-row
   (let ((db (db:delay-if-busy (db:get-db dbstruct)))
 	(res '()))
@@ -529,11 +529,11 @@
 		   (pid       (string->number (caddr match-dat))))
 	       (debug:print 0 *default-log-port* "Sending SIGINT to process " pid " on host " hostname)
 	       (if (equal? (get-host-name) hostname)
 		   (if (process:alive? pid)
 		       (begin
-			 (common:debug-handle-exceptions #t
+			 (handle-exceptions
 			  exn
 			  (begin
 			    (debug:print 0 *default-log-port* "Kill of process " pid " on host " hostname " failed.")
 			    (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 			    #t)
@@ -594,11 +594,11 @@
 ;;
 (define (tasks:set-area dbh configdat #!key (toppath #f)) ;; could I safely put *toppath* in for the default for toppath? when would it be evaluated?
   (let loop ((area-name (or (configf:lookup configdat "setup" "area-name")
 			    (common:get-area-name)))
 	     (modifier  'none))
-    (let ((success (common:debug-handle-exceptions #t
+    (let ((success (handle-exceptions
 		       exn
 		       (begin
 			 (debug:print 0 *default-log-port* "ERROR: cannot create area entry, " ((condition-property-accessor 'exn 'message) exn))
 			 #f) ;; FIXME: I don't care for now but I should look at *why* there was an exception
 		     (pgdb:add-area dbh area-name (or toppath *toppath*)))))
@@ -640,11 +640,11 @@
 		(pgdb:refresh-run-info
 		 dbh
 		 new-run-id
 		 state status owner event-time comment fail-count pass-count)
 		new-run-id)
-	      (if (common:debug-handle-exceptions #t
+	      (if (handle-exceptions
 		      exn
 		      (begin (print-call-chain) #f)
 		    (pgdb:insert-run
 		     dbh
 		     spec-id target run-name state status owner event-time comment fail-count pass-count)) ;; area-id))

Index: tdb.scm
==================================================================
--- tdb.scm
+++ tdb.scm
@@ -52,11 +52,11 @@
 	   (directory? work-area)
 	   (file-read-access? work-area))
       (let* ((dbpath              (conc work-area "/testdat.db"))
 	     (dbexists            (file-exists? dbpath))
 	     (work-area-writeable (file-write-access? work-area))
-	     (db                  (common:debug-handle-exceptions #t  ;; open the db if area writeable or db pre-existing. open in-mem otherwise. if exception, open in-mem
+	     (db                  (handle-exceptions  ;; open the db if area writeable or db pre-existing. open in-mem otherwise. if exception, open in-mem
 				   exn
 				   (begin
 				     (print-call-chain (current-error-port))
 				     (debug:print 2 *default-log-port* "ERROR: problem accessing test db " work-area ", you probably should clean and re-run this test"
 						  ((condition-property-accessor 'exn 'message) exn))
@@ -81,11 +81,11 @@
 	      (debug:print-info 11 *default-log-port* "Initialized test database " dbpath)
 	      (tdb:testdb-initialize db)))
 	;; (sqlite3:execute db "PRAGMA synchronous = 0;")
 	(debug:print-info 11 *default-log-port* "open-test-db END (sucessful)" work-area)
 	;; now let's test that everything is correct
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain (current-error-port))
 	   (debug:print-error 0 *default-log-port* "problem accessing test db " work-area ", you probably should clean and re-run this test or remove the file " 
 			dbpath ".\n  "

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -1098,11 +1098,11 @@
     (if fnamepatt
 	(apply append 
 	       (map (lambda (p)
 		      (if (directory-exists? p)
 			  (let ((glob-query (conc p "/" fnamepatt)))
-			    (common:debug-handle-exceptions #t
+			    (handle-exceptions
 				exn
 				(with-input-from-pipe
 				    (conc "echo " glob-query)
 				  read-lines)  ;; we aren't going to try too hard. If glob breaks it is likely because someone tried to do */*/*.log or similar
 			      (glob glob-query)))
@@ -1151,11 +1151,11 @@
 	 (cache-exists (and cache-file
 			    (not force-create)  ;; if force-create then pretend there is no cache to read
 			    (file-exists? cache-file)))
 	 (cached-dat   (if (and (not force-create)
 				cache-exists)
-			   (common:debug-handle-exceptions #t
+			   (handle-exceptions
 			    exn
 			    #f ;; any issues, just give up with the cached version and re-read
 			    (configf:read-alist cache-file))
 			   #f))
          (test-full-name (if (and item-path (not (string-null? item-path)))
@@ -1529,11 +1529,11 @@
 ;; (define (tests:set-partial-meta-info test-id run-id minutes work-area)
 (define (tests:set-partial-meta-info test-id run-id minutes work-area remtries)
   (let* ((cpuload  (get-cpu-load))
 	 (diskfree (get-df (current-directory)))
 	 (remtries 10))
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
      exn
      (if (> remtries 0)
 	 (begin
 	   (print-call-chain (current-error-port))
 	   (debug:print-info 0 *default-log-port* "WARNING: failed to set meta info. Will try " remtries " more times")

Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -19,13 +19,15 @@
 
 # The NEWTARGET causes some tests to fail. Do not use until this is fixed.
 NEWTARGET  = "$(OS)/$(FS)/$(VER)"
 TARGET     = "ubuntu/nfs/none"
 
-all : build unit test1 test2 test3 test4 test5 test6 test7 test8 test9
+all : build unit test4
+# test1 test2 test3 test4 test5 test6 test7 test8 test9
 
-unit : basicserver.log runs.log misc.log tests.log
+unit : all-rmt.log
+# basicserver.log runs.log misc.log tests.log
 
 rel : 
 	cd release;dashboard -rows 25 &
 
 ## basicserver.log : unittests/basicserver.scm

ADDED   tests/unittests/all-rmt.scm
Index: tests/unittests/all-rmt.scm
==================================================================
--- /dev/null
+++ tests/unittests/all-rmt.scm
@@ -0,0 +1,122 @@
+
+;;======================================================================
+;;  A L L - R M T 
+;;======================================================================
+
+;; Run like this:
+;;
+;;  ./rununittest.sh all-rmt 1
+
+;; Definitions:
+;;   NTN - no test needed
+;;   DEP - function is deprecated, no point in testing
+;;   NED - function nested under others, no test needed.
+;;   DEF - deferred
+
+(print "start dir: " (current-directory))
+       
+(define toppath (current-directory))
+(test #f #t (string?(server:start-and-wait *toppath*)))
+
+(test "setup for run" #t (begin (launch:setup)
+ 				(string? (getenv "MT_RUN_AREA_HOME"))))
+(test #f #t (vector? (client:setup toppath)))
+
+(test #f #t (vector? (rmt:get-connection-info toppath))) ;; TODO: push areapath down.
+(test #f #t (string? (server:check-if-running ".")))
+;; DEF (test #f #f (rmt:send-receive-no-auto-client-setup *runremote* 'get-keys #f '()))
+;; DEF (rmt:kill-server run-id)
+;; DEF (rmt:start-server run-id)
+(test #f '(#t "successful login")(rmt:login #f))
+;; DEF (rmt:login-no-auto-client-setup connection-info)
+(test #f #t (pair? (rmt:get-latest-host-load (get-host-name))))
+(test #f #t (list? (rmt:get-changed-record-ids 0)))
+(test #f #f (begin (runs:update-all-test_meta #f) #f))
+(test #f '("test1" "test2")(sort (alist-ref "tagtwo" (hash-table->alist (rmt:get-tests-tags)) equal?) string<=))
+(test #f '() (rmt:get-key-val-pairs 0))
+(test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
+(test #f '("SYSTEM" "RELEASE") (rmt:get-keys-write)) ;; dummy query to force server start
+(test #f '() (rmt:get-key-vals 1))
+(test #f (vector '("SYSTEM" "RELEASE") '()) (rmt:get-targets))
+(test #f "" (rmt:get-target 1))
+(test #f #t (rmt:register-test 1 "foo" ""))
+(test #f 1  (rmt:get-test-id 1 "foo" ""))
+(test #f "foo" (vector-ref (rmt:get-test-info-by-id 1 1) 2))
+(test #f "/tmp/badname" (rmt:test-get-rundir-from-test-id 1 1))
+(test #f '(1) (db:set-tests-state-status *db* 1 '("foo")  "COMPLETED" "PASS" "NOT_STARTED" "PASS"))
+(test #f '(1) (rmt:set-tests-state-status 1 '("foo") "COMPLETED" "PASS" "NOT_STARTED" "PASS"))
+(test #f #t (mt:test-set-state-status-by-id 1 1 "COMPLETED" "PASS" "Just testing!"))
+(test #f #t (list? (rmt:get-tests-for-run 1 "%" '() '() #f #f #f #f #f #f 0 #f)))
+(test #f #t (list? (rmt:get-tests-for-runs-mindata '(1) "%" '() '() #f)))
+(test #f #f (begin (rmt:delete-test-records 1 2) #f))
+(test #f #t (begin (rmt:test-set-state-status 1 1 "COMPLETED" "FAIL" "Another message") #t))
+(test #f 0  (rmt:test-toplevel-num-items 1 "foo"))
+(test #f '()(rmt:get-matching-previous-test-run-records 1 "foo" ""))
+(test #f '("/tmp/badname" "logs/final.log") (rmt:test-get-logfile-info 1 "foo"))
+(test #f '()(rmt:test-get-records-for-index-file 1 "foo"))
+(test #f #t (vector? (rmt:get-testinfo-state-status 1 1)))
+(test #f #t (rmt:test-set-log! 1 1 "/tmp/another/logfile/eh"))
+(test #f #f (begin (rmt:test-set-top-process-pid 1 1 123) #f))
+(test #f 123  (rmt:test-get-top-process-pid 1 1))
+(define keys (rmt:get-keys))
+(test #f '()(rmt:get-run-ids-matching-target keys "%/%" #f "%" "%" "%" "%"))
+(test #f '()(rmt:test-get-paths-matching-keynames-target-new keys "%/%" #f "%" "%" "%" "%"))
+(test #f '()(rmt:get-prereqs-not-met 1 '() "foo" ""))
+(test #f 0 (rmt:get-count-tests-running-for-run-id 1))
+(test #f 0 (rmt:get-count-tests-running 1))
+(test #f 0 (rmt:get-count-tests-running-for-testname 1 "foo"))
+(test #f 0 (rmt:get-count-tests-running-in-jobgroup 1 "nada"))
+(test #f #f (begin (rmt:set-state-status-and-roll-up-items 1 "foo" "" "COMPLETED" "FAIL" "Just yet another message") #f))
+(test #f #t (rmt:top-test-set-per-pf-counts 1 "foo"))
+(test #f '() (rmt:get-raw-run-stats 1))
+(test #f #t (vector? (rmt:get-run-info 1)))
+(test #f 0 (rmt:get-num-runs "%"))
+(define keypatts '(("SYSTEM" "ubuntu")("RELEASE" "v1.234")) )
+(test #f 1 (rmt:register-run '(("SYSTEM" "ubuntu")("RELEASE" "v1.234")) "bar" "NEW" "JUSTFINE" "bobafett" "quick"))
+(test #f "bar" (rmt:get-run-name-from-id 1))
+(test #f #t (begin (rmt:delete-run 2) #t)) ;; delete a non-existant run
+(test #f #t (begin (rmt:update-run-stats 1 '()) #t))
+(test #f #t (begin (rmt:delete-old-deleted-test-records) #t))
+(test #f #t (vector? (rmt:get-runs "%" 10 0 keypatts)))
+(test #f '(1)(rmt:get-all-run-ids))
+(test #f '()(rmt:get-prev-run-ids 1))
+(test #f #t (begin (rmt:lock/unlock-run 1 #t #f "mikey") #t))
+(test #f "JUSTFINE" (rmt:get-run-status 1))
+(test #f #t (begin (rmt:set-run-status 1 "NOTFINE" msg: "A message") #t))
+(test #f #t (begin (rmt:update-run-event_time 1) #t))
+;; (rmt:get-runs-by-patt  keys runnamepatt targpatt offset limit fields last-runs-update) ;; fields of #f uses default
+;; (rmt:find-and-mark-incomplete run-id ovr-deadtime)
+;; (rmt:get-main-run-stats run-id)
+;; (rmt:get-var varname)
+;; (rmt:set-var varname value)
+;; (rmt:find-and-mark-incomplete-all-runs #!key (ovr-deadtime #f))
+;; (rmt:get-previous-test-run-record run-id test-name item-path)
+;; (rmt:get-run-stats)
+;; (rmt:teststep-set-status! run-id test-id teststep-name state-in status-in comment logfile)
+;; (rmt:get-steps-for-test run-id test-id)
+;; (rmt:read-test-data run-id test-id categorypatt #!key (work-area #f)) 
+;; (rmt:testmeta-add-record testname)
+;; (rmt:testmeta-get-record testname)
+;; (rmt:testmeta-update-field test-name fld val)
+;; (rmt:test-data-rollup run-id test-id status)
+;; (rmt:csv->test-data run-id test-id csvdata)
+;; (rmt:tasks-find-task-queue-records target run-name test-patt state-patt action-patt)
+;; (rmt:tasks-add action owner target runname testpatt params)
+;; (rmt:tasks-set-state-given-param-key param-key new-state)
+;; (rmt:tasks-get-last target runname)
+;; (rmt:archive-get-allocations  testname itempath dneeded)
+;; (rmt:archive-register-block-name bdisk-id archive-path)
+;; (rmt:archive-allocate-testsuite/area-to-block block-id testsuite-name areakey)
+;; (rmt:archive-register-disk bdisk-name bdisk-path df)
+;; (rmt:test-set-archive-block-id run-id test-id archive-block-id)
+;; (rmt:test-get-archive-block-info archive-block-id)
+;; NED (rmt:open-qry-close-locally cmd run-id params #!key (remretries 5))
+;; NED (rmt:send-receive cmd rid params #!key (attemptnum 1)(area-dat #f)) ;; start attemptnum at 1 so the modulo below works as expected
+;; DEF (test #f #f (rmt:print-db-stats))
+;; DEF (rmt:get-max-query-average run-id)
+;; NED (rmt:general-call stmtname run-id . params)
+;; DEP (rmt:sdb-qry qry val run-id)
+;; DEF (rmt:runtests user run-id testpatt params)
+;; DEP (rmt:open-test-db-by-test-id run-id test-id #!key (work-area #f))
+;; DEP (rmt:synchash-get run-id proc synckey keynum params)
+;; DEP (test #f #f (rmt:update-pass-fail-counts 1 "foo"))