Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -31,10 +31,14 @@
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
+
+(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
+  (if (file-exists? debugcontrolf)
+      (load debugcontrolf)))
 
 ;; (use trace dot-locking)
 ;;  (trace
 ;;   tests:match
 ;;   runs:run-tests)