diff --git a/collects/meta/drdr/graphs/build-graph.ss b/collects/meta/drdr/graphs/build-graph.ss index cdfd44c84d..b4f159cdbf 100644 --- a/collects/meta/drdr/graphs/build-graph.ss +++ b/collects/meta/drdr/graphs/build-graph.ss @@ -614,7 +614,7 @@ (span ((id "rev_and_duration")) "")) (tt (span ((id "timings")) "")) - ,@(for/list ((graphs (reverse (in-list graphss))) + ,@(for/list ((graphs (in-list graphss)) (i (in-naturals))) `(map ((name ,(format "revmap~a" i))) ,@(graphs->areas graphs i)))