Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -252,11 +252,13 @@
     (for-each (lambda (name)
 		(if (<= rown maxn)
 		    (let ((labl (vector-ref lftcol rown)))
 		      (iup:attribute-set! labl "TITLE" name)))
 		(set! rown (+ 1 rown)))
-	      (drop *alltestnamelst* *start-test-offset*))))
+	      (if (> (length *alltestnamelst*) *start-test-offset*)
+		  (drop *alltestnamelst* *start-test-offset*)
+		  '())))) ;; *alltestnamelst*))))
 
 (define (update-buttons uidat numruns numtests)
   (let* ((runs        (if (> (length *allruns*) numruns)
 			  (take-right *allruns* numruns)
 			  (pad-list *allruns* numruns)))
@@ -375,11 +377,11 @@
 			    (set! *alltestnamelst* (append *alltestnamelst* (list testfullname))))))
 		    )
 		(set! rown (+ rown 1))))
 	    (let ((xl (if (> (length testnames) *start-test-offset*)
 			  (drop testnames *start-test-offset*)
-			  testnames)))
+			  '()))) ;; testnames)))
 	      (append xl (make-list (- *num-tests* (length xl)) "")))))
 	 (set! coln (+ coln 1))))
      runs)))
 
 (define (mkstr . x)