diff --git a/server.pl b/server.pl
index ea6a1af..87b2a03 100755
--- a/server.pl
+++ b/server.pl
@@ -288,15 +288,17 @@ handle_post(Request) :-
     format(user_error, 'Ref: ~w~n', [Ref]),
     commits(JSON.commits, CommitList),
     list_set(CommitList, modified, ModifiedFileLists),
-    format(user_error, 'Extracted modified file lists: ~w~n', [ModifiedFileLists]),
     union_all(ModifiedFileLists, ModifiedFiles),
     format(user_error, 'Unified modified files: ~w~n', [ModifiedFiles]),
     list_set(CommitList, message, MessageLists),
     union_all(MessageLists, Messages),
+    format(user_error, 'Unified commit messages: ~w~n', [Messages]),
     list_set(CommitList, added, AddedFileLists),
     union_all(AddedFileLists, AddedFiles),
+    format(user_error, 'Unified added files: ~w~n', [AddedFiles]),
     list_set(CommitList, removed, RemovedFileLists),
     union_all(RemovedFileLists, RemovedFiles),
+    format(user_error, 'Unified removed files: ~w~n', [RemovedFiles]),
     files_to_filetypes(ModifiedFiles, ModifiedFileTypes),
     files_to_filetypes(AddedFiles, AddedFileTypes),
     files_to_filetypes(RemovedFiles, RemovedFileTypes),
@@ -308,11 +310,19 @@ handle_post(Request) :-
     files_with_prefix_slash(RemovedFiles, RemovedFullPaths),
     % Union the file types, basenames, and full paths to form Modified, Added, and Removed sets
     union_all([ModifiedFileTypes, ModifiedBaseNames, ModifiedFullPaths], Modified),
+    format(user_error, 'Modified: ~w~n', [Modified]),
     union_all([AddedFileTypes, AddedBaseNames, AddedFullPaths], Added),
+    format(user_error, 'Added: ~w~n', [Added]),
     union_all([RemovedFileTypes, RemovedBaseNames, RemovedFullPaths], Removed),
+    format(user_error, 'Removed: ~w~n', [Removed]),
     union_all([Modified, Added, Removed], Affected),
+    format(user_error, 'Affected: ~w~n', [Affected]),
     union(Modified, Added, Touched),
-    list_set(CommitList, author_email, Authors),
+    format(user_error, 'Touched: ~w~n', [Touched]),
+    list_set(CommitList, author_email, AuthorList),
+    list_to_set(AuthorList, Authors),
+    format(user_error, 'Authors: ~w~n', [Authors]),
+    format(user_error, 'Cloning repository to check out commit: ~w~n', [CommitAfter]),
     git_clone_command(Repository, ShortName, DefaultBranch, '/tmp', CommitAfter, CloneCommand, Destination),
     shell(CloneCommand),
     git_fetch_commit_command(Destination, CommitAfter, FetchCommand),