@@ -73,21 +73,21 @@
 ;; (declare (uses dbmod.import))
 
 (declare (uses servermod))
 (import servermod)
 
-;; This is the new runs view
-(include "dashboard-new-runs-view.scm")
-
 (include "common_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")
 (include "task_records.scm")
 (include "megatest-version.scm")
 ;; (include "megatest-fossil-hash.scm")
 (include "vg_records.scm")
 
+;; This is the new runs view
+(include "dashboard-new-runs-view.scm")
+
 (define help (conc 
 	      "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "
   license GPL, Copyright (C) Matt Welland 2012-2017
 
@@ -199,11 +199,11 @@
 ;;       (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
 ;;)
 
 ;; 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
+;; (keys       (rmt:get-keys))         ;; to be removed when targets handling is r
 
 ;; 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
@@ -2541,10 +2541,11 @@
     ;; now assemble the hdrlst and bdylst and kick off the dialog
     (iup:show
      (iup:dialog 
       #:title (conc "Megatest dashboard " (current-user-name) ":" *toppath*)
       #:menu (dcommon:main-menu)
+      #:shrink "YES"
       (let* ((runs-view (iup:vbox
 			 (iup:split
 			  #:orientation "VERTICAL" ;; "HORIZONTAL"
 			  #:value 100
 			  (dboard:runs-tree-browser commondat runs-dat)
@@ -2590,10 +2591,11 @@
 			 (let ((order-a (or (any->number (configf:lookup views-cfgdat a "order")) 999))
 			       (order-b (or (any->number (configf:lookup views-cfgdat b "order")) 999)))
 			   (> order-a order-b)))))
 		result))
 	     (tabs (apply iup:tabs
+			  #:shrink "YES"
 			  #:tabchangepos-cb (lambda (obj curr prev)
 					      (debug:catch-and-dump
 					       (lambda ()
 						 (let* ((tab-num (dboard:commondat-curr-tab-num commondat))
 							(tabdat  (dboard:common-get-tabdat commondat tab-num: tab-num)))