Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -102,10 +102,11 @@
 			"-q"
 			"-use-db-cache"
 			"-skip-version-check"
 			"-repl"
                         "-rh5.11" ;; fix to allow running on rh5.11
+			"-:p"     ;; ignore the built in chicken profiling switch
 			)
 		 args:arg-hash
 		 0))
 
 ;; check for MT_* environment variables and exit if found
@@ -1483,11 +1484,11 @@
     (hash-table-set! tests-draw-state 'first-time #t)
     ;; (hash-table-set! tests-draw-state 'scalef 1)
     (tests:get-full-data test-names test-records '() all-tests-registry)
     (set! sorted-testnames (tests:sort-by-priority-and-waiton test-records))
     
-    ;; refer to (dboard:tabcodat-keys tabdat), (dboard:tabdat-dbkeys tabdat) for keys
+    ;; refer to (dboard:tabdat-keys tabdat), (dboard:tabdat-dbkeys tabdat) for keys
     (let* ((result
 	    (iup:vbox
 	     (dcommon:command-execution-control tabdat)
 	     (iup:split
 	      #:orientation "VERTICAL" ;; "HORIZONTAL"
@@ -2938,11 +2939,11 @@
 			    (dashboard:runs-horizontal-slider runs-dat))))
 			 controls
 			 ))
 	     (views-cfgdat (common:load-views-config))
 	     (additional-tabnames '())
-	     (tab-start-num       6)   ;; DON'T FORGET TO UPDATE THIS WHEN CHANGING THE STANDARD TABS BELOW
+	     (tab-start-num       5)   ;; 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
@@ -2949,55 +2950,54 @@
 		 (lambda (view-name)
 		   (debug:print 0 *default-log-port* "Adding view " view-name)
 		   (let* ((cfgtype (configf:lookup views-cfgdat view-name "type"))) ;; what type of view?
 		     (if (not (string? cfgtype))
 			 (debug:print-info 0 *default-log-port* "WARNING: view \"" view-name
-				     "\" is missing needed sections. Please consult the documenation and update ~/.mtviews.config or " *toppath* "/.mtviews.config")
+					   "\" is missing needed sections. "
+					   "Please consult the documenation and update ~/.mtviews.config or "
+					   *toppath* "/.mtviews.config")
 			 (case (string->symbol cfgtype)
 			   ;; user supplied source for a tab
 			   ;;
-			   ((external)
-			    (let ((tab-content (dboard:add-external-tab commondat view-name views-cfgdat #f tab-num))) ;; was tabs
+			   ((external) ;; was tabs
+			    (let ((tab-content (dboard:add-external-tab commondat view-name views-cfgdat #f tab-num)))
 			      (set! additional-tabnames (cons (cons tab-num view-name) additional-tabnames))
 			      (set! tab-num (+ tab-num 1))
 			      (set! result (append result (list tab-content)))))))))
-		 (sort (hash-table-keys views-cfgdat) (lambda (a b)
-							(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)))))
+		 (sort (hash-table-keys views-cfgdat)
+		       (lambda (a b)
+			 (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
 			  #: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)))
-                   
 						   (dboard:tabdat-layout-update-ok-set! tabdat #f))
 						 (dboard:commondat-curr-tab-num-set! commondat curr)
 						 (let* ((tab-num (dboard:commondat-curr-tab-num commondat))
 							(tabdat  (dboard:common-get-tabdat commondat tab-num: tab-num)))
-               
 						   (dboard:commondat-please-update-set! commondat #t)
 						   (dboard:tabdat-layout-update-ok-set! tabdat #t)))
 					       "tabchangepos"))
 			  (dashboard:summary commondat stats-dat tab-num: 0)
 			  runs-view
-			  (make-runs-view commondat runs2-dat 2)
-			  (dashboard:runs-summary commondat onerun-dat tab-num: 3)
-			  ;; (dashboard:new-view db data new-view-dat tab-num: 3)
-			  (dashboard:run-controls commondat runcontrols-dat tab-num: 4)
-			  (dashboard:run-times commondat runtimes-dat tab-num: 5)
-			  ;; (dashboard:runs-summary commondat onerun-dat tab-num: 4)
+			  ;; (make-runs-view commondat runs2-dat 2)
+			  (dashboard:runs-summary commondat onerun-dat tab-num: 2)
+			  (dashboard:run-controls commondat runcontrols-dat tab-num: 3)
+			  (dashboard:run-times commondat runtimes-dat tab-num: 4)
 			  additional-views)))
 	;; (set! (iup:callback tabs tabchange-cb:) (lambda (a b c)(print "SWITCHED TO TAB: " a " " b " " c)))
 	(iup:attribute-set! tabs "TABTITLE0" "Summary")
 	(iup:attribute-set! tabs "TABTITLE1" "Runs")
-	(iup:attribute-set! tabs "TABTITLE2" "Runs2")
-	(iup:attribute-set! tabs "TABTITLE3" "Run Summary")
-	(iup:attribute-set! tabs "TABTITLE4" "Run Control")
-	(iup:attribute-set! tabs "TABTITLE5" "Run Times")
+	;; (iup:attribute-set! tabs "TABTITLE2" "Runs2")
+	(iup:attribute-set! tabs "TABTITLE2" "Run Summary")
+	(iup:attribute-set! tabs "TABTITLE3" "Run Control")
+	(iup:attribute-set! tabs "TABTITLE4" "Run Times")
 	;; (iup:attribute-set! tabs "TABTITLE3" "New View")
 	;; (iup:attribute-set! tabs "TABTITLE4" "Run Control")
 
 	;; set the tab names for user added tabs
 	(for-each
@@ -3009,10 +3009,11 @@
 	;; make the iup tabs object available (for changing color for example)
 	(dboard:commondat-hide-not-hide-tabs-set! commondat tabs)
 	;; now set up the tabdat lookup
 	(dboard:common-set-tabdat! commondat 0 stats-dat)
 	(dboard:common-set-tabdat! commondat 1 runs-dat)
+	;;(dboard:common-set-tabdat! commondat 2 runs2-dat)
 	(dboard:common-set-tabdat! commondat 2 onerun-dat)
 	(dboard:common-set-tabdat! commondat 3 runcontrols-dat)
 	(dboard:common-set-tabdat! commondat 4 runtimes-dat)
 
 	(iup:vbox