diff --git a/collects/tests/profile/main.ss b/collects/tests/profile/main.ss
index 00d3339..df3395d 100644
--- a/collects/tests/profile/main.ss
+++ b/collects/tests/profile/main.ss
@@ -1,7 +1,7 @@
 #lang scheme/base
 
 (require tests/eli-tester profile/structs profile/analyzer
-         scheme/match scheme/list)
+         scheme/match scheme/list "topsort.ss")
 
 (define A '(A . #f))
 (define B '(B . #f))
@@ -37,6 +37,8 @@
 
 (test
 
+ do (topological-sort-tests)
+
  (match (analyze `(10
                    [0 0 ,A]
                    [0 1 ,A]))