Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -244,10 +244,15 @@
       (print megatest-version)
       (exit)))
 
 (define *didsomething* #f)
 
+(if (and (or (args:get-arg "-list-targets")
+	     (args:get-arg "-list-db-targets"))
+	 (not (args:get-arg "-transport")))
+    (hash-table-set! args:arg-hash "-transport" "fs"))
+
 ;;======================================================================
 ;; Misc setup stuff
 ;;======================================================================
 
 (debug:setup)