Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -482,16 +482,22 @@
 	fi
 
 altdb.scm :
 	echo ";; optional alternate db setup" > altdb.scm
 	echo "(define *available-db* (make-hash-table))" >> altdb.scm
-	if  csi -ne '(use mysql-client)';then \
+	if  csi -ne '(use mysql-client)' &> /dev/null;then \
            echo "(use mysql-client)(hash-table-set! *available-db* 'mysql #t)" >> altdb.scm; \
 	fi
-	if csi -ne '(use postgresql)';then \
+	if csi -ne '(use postgresql)'&> /dev/null;then \
 	   echo "(use postgresql)(hash-table-set! *available-db* 'postgresql #t)" >> altdb.scm;\
 	fi
+	if  csi -ne '(import mysql-client)'&> /dev/null;then \
+           echo "(import mysql-client)(hash-table-set! *available-db* 'mysql #t)" >> altdb.scm; \
+	fi
+	if csi -ne '(import postgresql)'&> /dev/null;then \
+	   echo "(import postgresql)(hash-table-set! *available-db* 'postgresql #t)" >> altdb.scm;\
+	fi
 
 portlogger-example : portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o synchash.o tasks.o tdb.o tests.o tree.o
 	csc $(CSCOPTS) portlogger-example.scm api.o archive.o client.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o http-transport.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o synchash.o tasks.o tdb.o tests.o tree.o
 
 # create a pdf dot graphviz diagram from notations in rmt.scm

Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -24,32 +24,66 @@
 (use srfi-69)
 
 (module commonmod
 	*
 
-(import scheme
-	chicken
-
-	(prefix sqlite3 sqlite3:)
-	data-structures
-	extras
-	files
-	matchable
-	md5
-	message-digest
-	pathname-expand
-	posix
-	posix-extras
-	regex
-	regex-case
-	srfi-1
-	srfi-18
-	srfi-69
-	typed-records
-
-	;; debugprint
-	)
+(import scheme)
+(cond-expand
+ (chicken-4
+  
+  (import chicken
+	  
+	  (prefix sqlite3 sqlite3:)
+	  data-structures
+	  extras
+	  files
+	  matchable
+	  md5
+	  message-digest
+	  pathname-expand
+	  posix
+	  posix-extras
+	  regex
+	  regex-case
+	  srfi-1
+	  srfi-18
+	  srfi-69
+	  typed-records)
+  (use srfi-69))
+ (chicken-5
+  (import (prefix sqlite3 sqlite3:)
+	  ;; data-structures
+	  ;; extras
+	  ;; files
+	  ;; posix
+	  ;; posix-extras
+	  chicken.base
+	  chicken.condition
+	  chicken.file
+	  chicken.file.posix
+	  chicken.io
+	  chicken.pathname
+	  chicken.process
+	  chicken.process-context
+	  chicken.process-context.posix
+	  chicken.sort
+	  chicken.string
+	  chicken.time
+	  chicken.time.posix
+	  
+	  matchable
+	  md5
+	  message-digest
+	  pathname-expand
+	  regex
+	  regex-case
+	  srfi-1
+	  srfi-18
+	  srfi-69
+	  typed-records
+	  system-information
+  )))
 
 ;;======================================================================
 ;; CONTENTS
 ;;
 ;;  config file utils
@@ -196,11 +230,15 @@
 
 (define (common:get-megatest-exe-path)
   (let* ((mtpathdir (common:get-megatest-exe-dir)))
     (conc mtpathdir":"(get-environment-variable "PATH") ":.")))
 
-(define (realpath x) (resolve-pathname  (pathname-expand (or x "/dev/null")) ))
+(cond-expand
+ (chicken-4
+  (define (realpath x) (resolve-pathname  (pathname-expand (or x "/dev/null")) )))
+ (chicken-5
+  (define (realpath x) (normalize-pathname (pathname-expand (or x "/dev/null"))))))
 
 ;; if it looks like a number -> convert it to a number, else return it
 ;;
 (define (lazy-convert inval)
   (let* ((as-num (if (string? inval)(string->number inval) #f)))

Index: debugprint.scm
==================================================================
--- debugprint.scm
+++ debugprint.scm
@@ -3,41 +3,49 @@
 (declare (uses mtargs))
 
 (module debugprint
 	*
 	
-;;(import scheme chicken data-structures extras files ports)
+(import scheme)
+(cond-expand
+ (chicken-4
   (import
     scheme
     chicken
     data-structures
     posix
     ports
     extras
-    
-    ;; scheme
-    ;; chicken.base
-    ;; chicken.string
-    ;; chicken.time
-    ;; chicken.time.posix
-    ;; chicken.port
-    ;; chicken.process-context
-    ;; chicken.process-context.posix
-    
     (prefix mtargs args:)
     srfi-1
     ;; system-information
-    )
+    ))
+ (chicken-5
+  (import
+    scheme
+    chicken.base
+    chicken.string
+    chicken.time
+    chicken.time.posix
+    chicken.port
+    chicken.process-context
+    chicken.process-context.posix
+
+    srfi-1
+    (prefix mtargs args:))
+
+  (define setenv set-environment-variable!)
+  ))
   
 ;;======================================================================
 ;; debug stuff
 ;;======================================================================
 
 (define verbosity (make-parameter '()))
 (define *default-log-port*  (current-error-port))
 (define debug:print-logger (make-parameter #f)) ;; set to a proc to call on every logging print
-	 
+
 (define (debug:setup)
   (let ((debugstr (or (args:get-arg "-debug")
       		      (args:get-arg "-debug-noprop")
       		      (get-environment-variable "MT_DEBUG_MODE"))))
     (verbosity (debug:calc-verbosity debugstr 'q))
@@ -45,11 +53,11 @@
     ;; if we were handed a bad verbosity rule then we will override it with 1 and continue
     (if (not (verbosity))(verbosity 1))
     (if (and (not (args:get-arg "-debug-noprop"))
       	     (or (args:get-arg "-debug")
       		 (not (get-environment-variable "MT_DEBUG_MODE"))))
-      	(setenv #;set-environment-variable! "MT_DEBUG_MODE" (if (list? (verbosity))
+      	(setenv "MT_DEBUG_MODE" (if (list? (verbosity))
       				    (string-intersperse (map conc (verbosity)) ",")
       				    (conc (verbosity)))))))
 
 ;; check verbosity, #t is ok
 (define (debug:check-verbosity verbosity vstr)
@@ -114,15 +122,15 @@
      ((and (number? vb)
 	   (list? n))
       (member vb n))
      (else #f))))
 
-(define (debug:handle-remote-logging params)
-  (if (debug:print-logger) ;; NOTE: turn params into string to keep things simple for now
-      ((debug:print-logger)(conc "REMOTE ("(get-host-name)", pid="(current-process-id)") "
-				 (string-intersperse (map conc params) " ") "; "
-				 (string-intersperse (command-line-arguments) " ")))))
+;; (define (debug:handle-remote-logging params)
+;;   (if (debug:print-logger) ;; NOTE: turn params into string to keep things simple for now
+;;       ((debug:print-logger)(conc "REMOTE ("(get-host-name)", pid="(current-process-id)") "
+;; 				 (string-intersperse (map conc params) " ") "; "
+;; 				 (string-intersperse (command-line-arguments) " ")))))
 
 (define debug:enable-timestamp (make-parameter #t))
 
 (define (debug:timestamp)
   (if (debug:enable-timestamp)