@@ -28,11 +28,11 @@
 (define (tests:dynamic-dboard page)
 ;(define (tests:create-html-tree o)
  (let* (
 ;(page "1")
           (linktree  (common:get-linktree))
-         (area-name (common:get-testsuite-name))
+         (area-name (common:get-area-name))
 	       (keys      (rmt:get-keys))
 	       (numkeys   (length keys))
          (targtweaked (make-list numkeys "%"))
          (target-patt (string-join targtweaked "/"))
          (total-runs  (rmt:get-num-runs "%"))
@@ -59,11 +59,11 @@
 
 (define (tests:create-html-summary outf)
  (let* ((lockfile  (conc outf ".lock"))
         (linktree  (common:get-linktree))
 				(keys      (rmt:get-keys))
-        (area-name (common:get-testsuite-name))
+        (area-name (common:get-area-name))
         (run-patt (or (args:get-arg "-run-patt")
                         (args:get-arg "-runname")
                         "%"))
         (target (or (args:get-arg "-target-patt")
                         (args:get-arg "-target")
@@ -254,11 +254,11 @@
    (let* ((lockfile  (conc outf ".lock"))
 	 (runs-to-process '()))
     (if (common:simple-file-lock lockfile)
 	(let* ((linktree  (common:get-linktree))
 	       (oup       (open-output-file (or outf (conc linktree "/runs-index.html"))))
-	       (area-name (common:get-testsuite-name))
+	       (area-name (common:get-area-name))
 	       (keys      (rmt:get-keys))
 	       (numkeys   (length keys))
 	       (runsdat   (rmt:get-runs "%" #f #f (map (lambda (x)(list x "%")) keys)))
 	       (header    (vector-ref runsdat 0))
 	       (runs      (vector-ref runsdat 1))