Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -81,10 +81,11 @@
   -cols C         : set number of columns
   -start-dir dir  : start dashboard in the given directory
   -target target  : filter runs tab to given target.
   -debug  n[,n]   : set debug level(s) e.g. -debug 4 or -debug 0,9
   -repl           : Start a chicken scheme interpreter
+  -mode MODE      : tcp or nfs
 "
 ))
 
 
 ;; process args
@@ -95,10 +96,11 @@
 			"-cols"
 			"-test" ;; given a run id and test id, open only a test control panel on that test..
 			"-debug"
                         "-start-dir"
                         "-target"
+			"-mode"  ;; tcp or nfs
 			) 
                  ;; switches (don't take arguments)
 		 (list  "-h"
 			"-skip-version-check"
 			"-repl"
@@ -105,13 +107,17 @@
 			"-:p"     ;; ignore the built in chicken profiling switch
 			)
 		 args:arg-hash
 		 0))
 
+(if (args:get-arg "-mode")
+    (let* ((mode (string->symbol (args:get-arg "-mode"))))
+      (rmt:transport-mode mode)))
+
 (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"))
 ;;(debug:print-info 13 *default-log-port* "Before common:watchdog spawn")