@@ -1138,14 +1138,28 @@
 	       #:readonly "YES"
 	       #:font "Courier New, -12"
 	       )))
       (dboard:tabdat-command-tb-set! data tb)
       tb)
+
     (iup:button "Execute" #:size "50x"
 		#:action (lambda (obj)
-			   ;; (let ((cmd (conc ;; "xterm -geometry 180x20 -e \""
-                           (common:run-a-command (iup:attribute (dboard:tabdat-command-tb data) "VALUE")))))))
+			 (let ((cmd (iup:attribute (dboard:tabdat-command-tb data) "VALUE")))
+                           (if (substring-index "no-runname-specified" cmd)
+                            (debug:print 0 *default-log-port* "ERROR: no runname specified")
+                            (begin
+                              (if (substring-index "no-target-selected" cmd)
+                                (debug:print 0 *default-log-port* "ERROR: no target selected")
+                                (begin
+                                  (if (not (substring-index "-run" cmd))
+                                    (debug:print 0 *default-log-port*  "ERROR: No target selected")
+                                    (common:run-a-command (iup:attribute (dboard:tabdat-command-tb data) "VALUE"))
+                                  )
+                                )
+                              )
+                            )
+                           )))))))
     ;; ";echo Press any key to continue;bash -c 'read -n 1 -s'\" &")))
     ;; (system cmd)))))))
 
 (define (dcommon:command-action-selector commondat tabdat #!key (tab-num #f))
   (iup:frame
@@ -1170,11 +1184,10 @@
    (let* ((default-run-name (seconds->work-week/day (current-seconds)))
 	  (tb (iup:textbox #:expand "HORIZONTAL"
 			   #:action (lambda (obj val txt)
 				      (debug:catch-and-dump
 				       (lambda ()
-					 ;; (print "obj: " obj " val: " val " unk: " unk)
 					 (dboard:tabdat-run-name-set! tabdat txt) ;; (iup:attribute obj "VALUE"))
 					 (dashboard:update-run-command tabdat))
 				       "command-runname-selector tb action"))
 			   #:value (or default-run-name (dboard:tabdat-run-name tabdat))))
 	  (lb (iup:listbox #:expand "HORIZONTAL"
@@ -1196,11 +1209,10 @@
 					  (runs-dat      (vector-ref runs-for-targ 1))
 					  (run-names     (cons default-run-name 
 							       (map (lambda (x)
 								      (db:get-value-by-header x runs-header "runname"))
 								    runs-dat))))
-				     ;; (print "DEBUGINFO: run-names=" run-names)
 				     ;; (iup:attribute-set! lb "REMOVEITEM" "ALL")
 				     (iuplistbox-fill-list lb run-names selected-item: default-run-name))))))
      ;; (dboard:tabdat-updater-for-runs-set! tabdat refresh-runs-list)
      (dboard:commondat-add-updater commondat refresh-runs-list tab-num: tab-num)
      ;; (refresh-runs-list)