@@ -63,10 +63,13 @@
 (import dcommonmod)
 (declare (uses dcommonmod.import))
 
 (declare (uses apimod))
 (import apimod)
+
+(declare (uses rmtmod))
+(import rmtmod)
 
 ;; (declare (uses ods))
 ;; (import ods)
 ;; 
 (declare (uses dbmod))
@@ -97,10 +100,12 @@
 (include "run_records.scm")
 (include "task_records.scm")
 (include "megatest-version.scm")
 ;; (include "megatest-fossil-hash.scm")
 (include "vg_records.scm")
+
+;; (print "Got here #1")
 
 ;; This is the new runs view
 (include "dashboard-new-runs-view.scm")
 
 (define help (conc 
@@ -181,10 +186,22 @@
           (change-directory fullpath))
 	(begin
 	  (debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
  	  (exit 1))))
 
+;; (use trace)
+;; (trace-call-sites #t)
+;; (trace
+;;  launch:setup
+;;  configf:lookup
+;;  common:on-homehost?
+;;  common:get-homehost
+;;  server:get-best-guess-address
+;;  )
+
+;; (print "Got here #1.5")
+
 ;; TODO: Move this inside (main)
 ;;
 (if (not (launch:setup))
     (begin
       (print "Failed to find megatest.config, exiting") 
@@ -199,11 +216,13 @@
     (set! iup:detachbox iup:vbox))
 
 (if (not (common:on-homehost?))
     (begin
       (debug:print 0 *default-log-port* "WARNING: Current policy requires running dashboard on homehost: " (common:get-homehost))))
-    
+
+;; (print "Got here #1.6")
+
 ;; 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")
@@ -217,10 +236,12 @@
 ;;)
 
 ;; data common to all tabs in dboard:commondat struct moved to dcommonmod
   ;; data from sql db
 ;; (keys       (rmt:get-keys))         ;; to be removed when targets handling is r
+
+;; (print "Got here #1.7")
 
 ;; RA => returns the tabdat stored at hashkey passed in commondat-tabdats table (e.g. 0 gives summary)
 ;;
 (define (dboard:common-get-tabdat commondat #!key (tab-num #f))
   (let* ((tnum (or tab-num
@@ -360,10 +381,12 @@
 	(cadr t-sort)
 	3)))
 
 (define (get-curr-sort)
   (vector-ref *tests-sort-options* *tests-sort-reverse*))
+
+;; (print "Got here #2")
 
 ;;======================================================================
 
 ;;======================================================================
 (common:debug-setup)
@@ -1123,10 +1146,12 @@
 				      (hash-table-set! alltgls item #t))
 				  (let ((all (hash-table-keys alltgls)))
 				    (proc all)))
 				"text-list-toggle-box"))))
 		items))))
+
+;; (print "Got here #3")
 
 ;; Extract the various bits of data from tabdat and create the command line equivalent that will be displayed
 ;;
 (define (dashboard:update-run-command tabdat)
   (let* ((cmd-tb       (dboard:tabdat-command-tb tabdat))
@@ -3472,10 +3497,12 @@
 				(dboard:common-run-curr-updaters commondat 0) ;; force update of summary tab 
 				) "update buttons once"))
 	    (th2 (make-thread iup:main-loop "Main loop")))
 	(thread-start! th2)
 	(thread-join! th2)))))
+
+;; (print "Got here #4")
 
 ;; ease debugging by loading ~/.dashboardrc
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
   (if (common:file-exists? debugcontrolf)
       (load debugcontrolf)))