@@ -36,10 +36,12 @@
 (include "run_records.scm")
 
 ;;======================================================================
 ;; C O M M O N
 ;;======================================================================
+
+(define *dashboard-comment-share-slot* #f)
 
 (define (dtests:get-pre-command #!key (default-override #f))
   (let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "pre-command")))
     (or cfg-ovrd default-override "xterm -geometry 180x20 -e \"")))
 
@@ -291,11 +293,11 @@
 				  (let ((btn (iup:button status
 							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
 								    (let ((t (iup:attribute x "TITLE")))
 								      (if (equal? t "WAIVED")
-									  (iup:show (dashboard-tests:waiver testdat 
+									  (iup:show (dashboard-tests:waiver run-id testdat 
 													    (if wtxtbox (iup:attribute wtxtbox "VALUE") #f)
 													    (lambda (c)
 													      (set! newcomment c)
 													      (if wtxtbox 
 														  (begin
@@ -351,11 +353,11 @@
     ;;     	#:expand "HORIZONTAL"
     ;;     	#:action (lambda (obj)
     ;;     		   (print "Refresh test data " stepname))
     )))
 
-(define (dashboard-tests:waiver testdat ovrdval cmtcmd)
+(define (dashboard-tests:waiver run-id testdat ovrdval cmtcmd)
   (let* ((wpatt (configf:lookup *configdat* "setup" "waivercommentpatt"))
 	 (wregx (if (string? wpatt)(regexp wpatt) #f))
 	 (wmesg (iup:label (if wpatt (conc "Comment must match pattern " wpatt) "")))
 	 (comnt (iup:textbox #:action (lambda (val a b)
 					(if wpatt