@@ -31,16 +31,21 @@
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
 
-;; (use trace)
-;; (trace db:teststep-set-status!
-;;        tests:test-set-status!
-;;        cdb:test-set-status-state
-;;        cdb:client-call
-;;        tests:check-waiver-eligibility)
+(use trace)
+(trace
+ thread-sleep!
+;;  nice-path
+;;  read-config
+;; db:teststep-set-status!
+;; tests:test-set-status!
+;; cdb:test-set-status-state
+;; cdb:client-call
+;; tests:check-waiver-eligibility
+)
        
 
 (define help (conc "
 Megatest, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
@@ -393,11 +398,11 @@
        (else
 	(debug:print 0 "ERROR: -dumpmode of " (args:get-arg "-dumpmode") " not recognised")))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-show-config")
-    (let ((data (read-config "megatest.config" #f #t)))
+    (let ((data *configdat*)) ;; (read-config "megatest.config" #f #t)))
       ;; keep this one local
       (cond 
        ((not (args:get-arg "-dumpmode"))
 	(pp (hash-table->alist data)))
        ((string=? (args:get-arg "-dumpmode") "json")