Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1644,12 +1644,12 @@
 ;;   (let loop ((x 0))
 ;;     (print x "," (common:get-delay x 1))
 ;;     (if (< x 2)
 ;; 	(loop (+ x 0.1)))))
 
-(define (get-cpu-load #!key (remote-host #f))
-  (car (common:get-cpu-load remote-host)))
+;; (define (get-cpu-load #!key (remote-host #f))
+;;    (car (common:get-cpu-load remote-host)))
 
 ;;======================================================================
 ;;   (let* ((load-res (process:cmd-run->list "uptime"))
 ;; 	 (load-rx  (regexp "load average:\\s+(\\d+)"))
 ;; 	 (cpu-load #f))

Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -297,13 +297,13 @@
 	     (filter (lambda (x)
 		       (not (string-match "^\\s*" x)))
 		     val-list))
 	'())))
 
-(define (get-cpu-load)
+(define (commonmod:get-cpu-load)
   (let* ((load-info (with-input-from-file "/proc/loadavg" read-lines)))
-    (map string->number (string-split load-info))))
+    (map string->number (string-split (car load-info)))))
 
 (define *current-host-cores* #f)
 
 (define (get-current-host-cores)
   (or *current-host-cores*
@@ -325,11 +325,11 @@
      (string->number (read-line)))))
 
 ;; get the normalized (i.e. load / numcpus) for *this* host
 ;;
 (define (get-normalized-cpu-load)
-  (/ (get-cpu-load)(get-current-host-cores)))
+  (/ (commonmod:get-cpu-load)(get-current-host-cores)))
 
 ;;======================================================================
 ;; testsuite and area utilites
 ;;======================================================================
 

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -23,10 +23,11 @@
 ;;======================================================================
 
 (declare (unit dashboard-tests))
 (declare (uses common))
 (declare (uses commonmod))
+(declare (uses dcommon))
 (declare (uses db))
 (declare (uses gutils))
 (declare (uses rmt))
 (declare (uses ezsteps))
 (declare (uses subrun))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -143,33 +143,35 @@
 ;;       (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
 ;;)
 
 ;; data common to all tabs goes here
 ;;
-(defstruct dboard:commondat
-  ((curr-tab-num 0) : number)
-  please-update  
-  tabdats
-  update-mutex
-  updaters 
-  updating
-  uidat ;; needs to move to tabdat at some time
-  hide-not-hide-tabs
-  target
-  )
-
-(define (dboard:commondat-make)
-  (make-dboard:commondat
-   curr-tab-num:         0
-   tabdats:              (make-hash-table)
-   please-update:        #t
-   update-mutex:         (make-mutex)
-   updaters:             (make-hash-table)
-   updating:             #f
-   hide-not-hide-tabs:   #f
-   target:               ""
-   ))
+;; Moved to dcommon.scm
+;;
+;; (defstruct dboard:commondat
+;;   ((curr-tab-num 0) : number)
+;;   please-update  
+;;   tabdats
+;;   update-mutex
+;;   updaters 
+;;   updating
+;;   uidat ;; needs to move to tabdat at some time
+;;   hide-not-hide-tabs
+;;   target
+;;   )
+;;
+;; (define (dboard:commondat-make)
+;;   (make-dboard:commondat
+;;    curr-tab-num:         0
+;;    tabdats:              (make-hash-table)
+;;    please-update:        #t
+;;    update-mutex:         (make-mutex)
+;;    updaters:             (make-hash-table)
+;;    updating:             #f
+;;    hide-not-hide-tabs:   #f
+;;    target:               ""
+;;    ))
 
 ;;======================================================================
 ;; buttons color using image
 ;;======================================================================
 
@@ -212,39 +214,17 @@
 	;; (iup:attribute-set! img1 "2" "255 0 0")
 	(hash-table-set! images name img1)
 	name)))
 
 
-;; 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
-		   (dboard:commondat-curr-tab-num commondat)
-		   0)) ;; tab-num value is curr-tab-num value in passed commondat
-	 (ht   (dboard:commondat-tabdats commondat))
-	 (res  (hash-table-ref/default ht tnum #f)))
-    (or res
-	(let ((new-tabdat  (dboard:tabdat-make-data)))
-	  (hash-table-set! ht tnum new-tabdat)
-	  new-tabdat))))
-
-;; RA => sets the tabdat passed to the hashkey at commondat:tabdats hash table
-;;
-(define (dboard:common-set-tabdat! commondat tabnum tabdat)
-  (hash-table-set!
-   (dboard:commondat-tabdats commondat)
-   tabnum
-   tabdat))
-
 ;; gets and calls updater list based on curr-tab-num
 ;;
 (define (dboard:common-run-curr-updaters commondat #!key (tab-num #f))
   ;; (sync-db-to-tmp (dboard:common-get-tabdat commondat tab-num: tab-num)) ;; no longer applies
 
   ;; maybe need sleep here?
 
-  
   (if (dboard:common-get-tabdat commondat tab-num: tab-num) ;; only update if there is a tabdat
       (let* ((tnum     (or tab-num (dboard:commondat-curr-tab-num commondat)))
 	     (updaters (hash-table-ref/default (dboard:commondat-updaters commondat)
 					       tnum
 					       '())))

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -59,10 +59,11 @@
   update-mutex
   updaters 
   updating
   uidat ;; needs to move to tabdat at some time
   hide-not-hide-tabs
+  target
   )
 
 (define (dboard:commondat-make)
   (make-dboard:commondat
    curr-tab-num:         0
@@ -70,19 +71,41 @@
    please-update:        #t
    update-mutex:         (make-mutex)
    updaters:             (make-hash-table)
    updating:             #f
    hide-not-hide-tabs:   #f
+   target:               ""
    ))
 
 ;; RADT => Matrix defstruct addition
 (defstruct dboard:graph-dat
     ((id           #f) : string)
     ((color        #f) : vector)
     ((flag         #t) : boolean)
     ((cell         #f) : number)
     )
+
+;; 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
+		   (dboard:commondat-curr-tab-num commondat)
+		   0)) ;; tab-num value is curr-tab-num value in passed commondat
+	 (ht   (dboard:commondat-tabdats commondat))
+	 (res  (hash-table-ref/default ht tnum #f)))
+    (or res
+	(let ((new-tabdat  (dboard:tabdat-make-data)))
+	  (hash-table-set! ht tnum new-tabdat)
+	  new-tabdat))))
+
+;; RA => sets the tabdat passed to the hashkey at commondat:tabdats hash table
+;;
+(define (dboard:common-set-tabdat! commondat tabnum tabdat)
+  (hash-table-set!
+   (dboard:commondat-tabdats commondat)
+   tabnum
+   tabdat))
 
 ;; data for runs, tests etc. was used in run summary?
 ;;
 (defstruct dboard:runsdat
   ;; new system

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -333,11 +333,11 @@
 	      (thread-sleep! 6) ;; was 3
 	      (loop (calc-minutes)
 		    (or new-cpu-load cpu-load)
 		    (or new-disk-free disk-free)
 		    (if do-sync (current-seconds) last-sync))))))
-    (tests:update-central-meta-info run-id test-id (get-cpu-load) (get-df (current-directory))(calc-minutes) #f #f))) ;; NOTE: Checking twice for keep-going is intentional
+    (tests:update-central-meta-info run-id test-id (commonmod:get-cpu-load) (get-df (current-directory))(calc-minutes) #f #f))) ;; NOTE: Checking twice for keep-going is intentional
 
 
 ;; read testconfig and create .logpro and script files
 ;;    - use #f for tconfigreg to re-read the testconfigs from disk
 ;;