@@ -82,11 +82,11 @@
  mtver
  processmod
  runsmod
  subrunmod
  vgmod
- )
+ dashboard-context-menu)
 
 (define help (conc 
 	      "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
   license GPL, Copyright (C) Matt Welland 2012-2017
@@ -132,10 +132,11 @@
 			"-:p"     ;; ignore the built in chicken profiling switch
 			)
 		 args:arg-hash
 		 0))
 
+(make-and-init-bigdata)
 ;; check for MT_* environment variables and exit if found
 (if (not (args:get-arg "-test"))
     (begin
       (display "Checking for MT_ vars: ")
       (for-each (lambda (var)
@@ -179,11 +180,11 @@
 (if (or (args:get-arg "-rh5.11")
 	(configf:lookup *configdat* "dashboard" "no-detachbox")
         (not (file-exists? "/etc/os-release")))
     (set! iup:detachbox iup:vbox))
 
-(if (not (common:on-homehost?))
+#;(if (not (common:on-homehost?))
     (begin
       (debug:print 0 *default-log-port* "WARNING: Current policy requires running dashboard on homehost: " (common:get-homehost))))
     
 ;; RA => Might require revert for filters 
 ;; create a watch dog to move changes from lt/.db/*.db to megatest.db
@@ -2419,18 +2420,18 @@
                                (dboard:launch-testpanel run-id test-id))
                               
                               ((member #\2 status-chars) ;; 2 is middle mouse button
                                
                                (debug:print-info 13 *default-log-port* "mmb- test-name="test-name" testpatt="testpatt)
-                               (iup:show (dashboard:context-menu run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
+                               (iup:show (dashboard:context-menu *bdat* run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
                                          #:x 'mouse
                                          #:y 'mouse
                                          #:modal? "NO")
                                )
                               (else
                                (debug:print-info 13 *default-log-port* "unhandled status in run-summary-click-cb.  Doing right click action. (status is corrupted on Brandon's ubuntu host - bad/buggy  iup install??" )
-                               (iup:show (dashboard:context-menu run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
+                               (iup:show (dashboard:context-menu *bdat* run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
                                          #:x 'mouse
                                          #:y 'mouse
                                          #:modal? "NO")
                                )
                               )
@@ -2977,11 +2978,11 @@
 							       "%")))
                                               (item-path (db:test-get-item-path (rmt:get-test-info-by-id run-id test-id)))
                                               (item-test-path (conc test-name "/" (if (equal? item-path "")
 									"%" 
 									item-path))))
-					 (iup:show (dashboard:context-menu run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
+					 (iup:show (dashboard:context-menu *bdat* run-id test-id target runname test-name testpatt item-test-path test-info) ;; popup-menu
 						   #:x 'mouse
 						   #:y 'mouse
 						   #:modal? "NO")
 					 ;; (print "got here")
 					 ))