diff --git a/collects/tests/profile/main.ss b/collects/tests/profile/main.ss
index 4d577fc638..d7ce5e366d 100644
--- a/collects/tests/profile/main.ss
+++ b/collects/tests/profile/main.ss
@@ -20,7 +20,7 @@
     (for/list ([edge (get node)])
       `(,(node-id* (edge-caller edge)) -> ,(node-id* (edge-callee edge))
         time=  ,(get-time edge)
-        total= ,(edge-time edge))))
+        total= ,(edge-total edge))))
   (define (node->sexpr node)
     `(,(node-id* node)
           total=   ,(node-total node)