@@ -107,11 +107,11 @@
 	tasksmod
 	runsmod
 	testsmod
 	)
 
-;; (include "common_records.scm")
+(include "common_records.scm")
 ;; (include "db_records.scm")
 (include "run_records.scm")
 (include "task_records.scm")
 ;; (include "megatest-version.scm")
 (include "megatest-fossil-hash.scm")
@@ -172,12 +172,12 @@
 (if (args:get-arg "-mode")
     (let* ((mode (string->symbol (args:get-arg "-mode"))))
       (rmt:transport-mode mode)))
 ;;  (rmt:transport-mode 'tcp))
 
-(if (args:get-arg "-test") ;; need to use tcp for test control panel
-    (rmt:transport-mode 'tcp))
+;; (if (args:get-arg "-test") ;; need to use tcp for test control panel
+;;     (rmt:transport-mode 'tcp))
 
 ;; RA => Might require revert for filters 
 ;; create a watch dog to move changes from lt/.db/*.db to megatest.db
 ;;
 ;;;(if (file-write-access? (conc *toppath* "/megatest.db"))