Index: dashboard-new-runs-view.scm
==================================================================
--- dashboard-new-runs-view.scm
+++ dashboard-new-runs-view.scm
@@ -38,14 +38,15 @@
 	 (status-sql-filt  (dboard:rdat-run-status-sql-filt  rdat))
 	 (offset           (dboard:rdat-runs-offset          rdat))
 	 (count            (dboard:rdat-runs-count           rdat))
 	 
 	 ;; Use (db:get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
-	 (data             (rmt:simple-get-runs runname-sql-filt count offset targ-sql-filt #f))
+	 (data             #;(rmt:simple-get-runs runname-sql-filt count offset targ-sql-filt #f)
+	  (rmt:simple-get-runs runname-sql-filt #f #f targ-sql-filt #f))
 	 (numruns          (length data)))
     (print "Scan runs, offset: "offset" numruns: "numruns" count: "count)
-    (if (< numruns count) ;; i.e. there are no more runs to get
+    #;(if (< numruns count) ;; i.e. there are no more runs to get
 	(begin
 	  (dboard:rdat-runs-offset-set! rdat 0)) ;; start over
 	(dboard:rdat-runs-offset-set! rdat
 				      (+ (dboard:rdat-runs-offset rdat) numruns)))
     ;; store in the runsbynum vector

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -599,10 +599,11 @@
 
 (if (get-environment-variable "MT_RUN_AREA_HOME")(change-directory (get-environment-variable "MT_RUN_AREA_HOME")))
 
 (define (message-window msg)
   (iup:show
+   #:shrink "YES"
    (iup:dialog
     (iup:vbox 
      (iup:label msg #:margin "40x40")))))
 
 (define (iuplistbox-fill-list lb items #!key (selected-item #f))
@@ -2943,11 +2944,11 @@
 			    (dashboard:runs-horizontal-slider runs-dat))))
 			 controls
 			 ))
 	     (views-cfgdat (common:load-views-config))
 	     (additional-tabnames '())
-	     (tab-start-num       5)   ;; DON'T FORGET TO UPDATE THIS WHEN CHANGING THE STANDARD TABS BELOW
+	     (tab-start-num       6)   ;; DON'T FORGET TO UPDATE THIS WHEN CHANGING THE STANDARD TABS BELOW
 	     ;; (data (dboard:tabdat-init (make-d:data)))
 	     (additional-views 	;; process views-dat
 	      (let ((tab-num tab-start-num)
 		    (result  '()))
 		(for-each