@@ -95,11 +95,11 @@
 			 (lambda (testdat)
 			   (let ((newcomment (db:test-get-comment testdat)))
 			     (if *dashboard-comment-share-slot*
 				 (if (not (equal? (iup:attribute *dashboard-comment-share-slot* "VALUE")
 						  newcomment))
-				     (iup:attribute-set! *dashboard-comment-slot*
+				     (iup:attribute-set! *dashboard-comment-share-slot*
 							 "VALUE"
 							 newcomment)))
 			     newcomment)))
 	    (store-label "testid"
 			 (iup:label "TestId                             "
@@ -418,18 +418,18 @@
 	       (keydat        (if testdat (db:get-key-val-pairs dbstruct run-id) #f))
 	       (rundat        (if testdat (db:get-run-info dbstruct run-id) #f))
 	       (runname       (if testdat (db:get-value-by-header (db:get-rows rundat)
 								  (db:get-header rundat)
 								  "runname") #f))
-	       (tdb           (tdb:open-test-db-by-test-id-local dbstruct area-dat run-id test-id))
+	       ;; (tdb           (tdb:open-test-db-by-test-id-local dbstruct area-dat run-id test-id))
 	       ;; These next two are intentional bad values to ensure errors if they should not
 	       ;; get filled in properly.
 	       (logfile       "/this/dir/better/not/exist")
 	       (rundir        (if testdat 
 				  (db:test-get-rundir testdat)
 				  logfile))
-	       (testdat-path  (conc rundir "/testdat.db")) ;; this gets recalculated until found 
+	       ;; (testdat-path  (conc rundir "/testdat.db")) ;; this gets recalculated until found 
 	       (teststeps     (if testdat (tests:get-compressed-steps dbstruct run-id test-id) '()))
 	       (testfullname  (if testdat (db:test-get-fullname testdat) "Gathering data ..."))
 	       (testname      (if testdat (db:test-get-testname testdat) "n/a"))
 	       (testmeta      (if testdat 
 				  (let ((tm (db:testmeta-get-record dbstruct testname)))
@@ -463,16 +463,16 @@
 				   (system (conc "cd " rundir 
 						 ";mt_xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")))
 				 (message-window  (conc "Directory " rundir " not found")))))
 	       (widgets    (make-hash-table))
 	       (refreshdat (lambda ()
-			     (let* ((curr-mod-time (max (file-modification-time db-path)
-							(if (file-exists? testdat-path)
-							    (file-modification-time testdat-path)
-							    (begin
-							      (set! testdat-path (conc rundir "/testdat.db"))
-							      0))))
+			     (let* ((curr-mod-time (file-modification-time db-path))
+				                   ;;     (max ..... (if (file-exists? testdat-path)
+						   ;;      	      (file-modification-time testdat-path)
+						   ;;      	      (begin
+						   ;;      		(set! testdat-path (conc rundir "/testdat.db"))
+						   ;;      		0))))
 				    (need-update   (or (and (>= curr-mod-time db-mod-time)
 							    (> (current-milliseconds)(+ last-update 250))) ;; every half seconds if db touched
 						       (> (current-milliseconds)(+ last-update 10000))     ;; force update even 10 seconds
 						       request-update))
 				    (newtestdat (if need-update 
@@ -695,11 +695,12 @@
 											      (db:test-data-get-tol      x)
 											      (db:test-data-get-status   x)
 											      (db:test-data-get-units    x)
 											      (db:test-data-get-type     x)
 											      (db:test-data-get-comment  x)))
-										    (tdb:open-run-close-db-by-test-id-local dbstruct area-dat run-id test-id #f tdb:read-test-data test-id "%")))
+										    ;; (tdb:open-run-close-db-by-test-id-local dbstruct area-dat run-id test-id #f tdb:read-test-data test-id "%")))
+										    (db:read-test-data dbstruct area-dat run-id test-id "%")))
 									      "\n")))
 							       (if (not (equal? currval newval))
 								   (iup:attribute-set! test-data "VALUE" newval ))))) ;; "TITLE" newval)))))
 					  test-data))
 				       ;;(dashboard:run-controls)