Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -249,33 +249,33 @@
 ;;     (begin
 ;;       (debug:print-info 0 *default-log-port* "Forcing db-cache mode due to read-only access to megatest.db")
 ;;       (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
 ;;)
 
-;; data common to all tabs goes here
+;;;; 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
+;;  )
 ;;
-(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
-  )
-
-(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
-   ))
+;;(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
+;;   ))
 
 ;;======================================================================
 ;; buttons color using image
 ;;======================================================================