@@ -1438,10 +1438,13 @@
 ;; every time though the loop increment the test/itempatt val.
 ;; when the min is > max-allowed and none running then force exit
 ;;
 (define *max-tries-hash* (make-hash-table))
 
+(define (runs:pretty-long-list lst)
+   (if (> (length lst) 8)(append (take lst 3)(list "...")) lst))
+
 ;;======================================================================
 ;; runs:run-tests-queue is called by runs:run-tests
 ;;======================================================================
 ;;
 ;; test-records is a hash table testname:item_path => vector < testname testconfig waitons priority items-info ... >
@@ -1618,11 +1621,11 @@
 
 	(runs:incremental-print-results run-id)
 	(debug:print 4 *default-log-port* "TOP OF LOOP => "
 		     "test-name: " test-name
 		     "\n  hed:         " hed
-		     "\n  tal:         " tal
+		     "\n  tal:         " (runs:pretty-long-list tal)
 		     "\n  reg:         " reg
                      "\n  test-record  " test-record
                      "\n  itemdat:     " itemdat
 		     "\n  items:       " items
 		     "\n  item-path:   " item-path