diff --git a/graph.rkt b/graph.rkt
index 70f95dc..43e3a7f 100644
--- a/graph.rkt
+++ b/graph.rkt
@@ -295,7 +295,7 @@
   [min-st-prim (-> Graph Any (Listof (List Any Any)))]
   [max-st-prim (-> Graph Any (Listof (List Any Any)))]
 
-  ;; Single-source Shortest Paths
+  ;; 6 Single-source Shortest Paths
   [bellman-ford (-> Graph Any (Values (Mutable-HashTable Any Number)
                                       (Mutable-HashTable Any Any)))]
   [dijkstra (-> Graph Any (Values (Mutable-HashTable Any Number)