@@ -467,13 +467,14 @@
 		(set! val-num (+ val-num 1)))
 	      values)
     (let ((val (iup:attribute lb "VALUE")))
       (if val
 	  val
-	  (let ((newval (car values)))
-	    (iup:attribute-set! lb "VALUE" newval)
-	    newval)))))
+	  (if (not (null? values))
+	      (let ((newval (car values)))
+		(iup:attribute-set! lb "VALUE" newval)
+		newval))))))
 
 (define (dashboard:update-target-selector key-lbs #!key (action-proc #f))
   (let* ((db-target-dat (open-run-close db:get-targets #f))
 	 (header        (vector-ref db-target-dat 0))
 	 (db-targets    (vector-ref db-target-dat 1))