@@ -105,10 +105,12 @@
 			"-:p"     ;; ignore the built in chicken profiling switch
 			)
 		 args:arg-hash
 		 0))
 
+(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"))