diff --git a/08/part2.pl b/08/part2.pl
index 302035d..9b05c28 100644
--- a/08/part2.pl
+++ b/08/part2.pl
@@ -8,10 +8,11 @@ From r To :- From to _-To.
 answer(Answer) :-
     starts(Starts),
     routes(Starts, Routes),
-    collapse_routes(Routes, _-(Answer-_-_)).
+    collapse_routes(Routes, _-(_-Answer-_)).
 
 collapse_routes([X], X).
 collapse_routes(Routes, Collapsed) :-
+    writef('Collapsing: %t\n', [Routes]),
     sort(2, @=<, Routes, [Route1, Route2 | CdrRoutes]),
     unify2(Route1, Route2, 0-0-0-0, [], NewRoute),
     collapse_routes([NewRoute | CdrRoutes], Collapsed).