diff --git a/www/secretary/workbench/server.rb b/www/secretary/workbench/server.rb
index 9a4521f..d16b60d 100644
--- a/www/secretary/workbench/server.rb
+++ b/www/secretary/workbench/server.rb
@@ -76,7 +76,7 @@
 # support for fetching previous month's worth of messages
 get %r{/(\d{6})} do |mbox|
   @mbox = mbox
-  _json :index
+  _json :index # This invokes workbench/views/index.json.rb
 end
 
 # retrieve a single message
diff --git a/www/secretary/workbench/views/actions/check-mail.json.rb b/www/secretary/workbench/views/actions/check-mail.json.rb
index 853afa1..fa2bbf6 100644
--- a/www/secretary/workbench/views/actions/check-mail.json.rb
+++ b/www/secretary/workbench/views/actions/check-mail.json.rb
@@ -1,3 +1,5 @@
+# This code is invoked from workbench/views/index.js.rb
+
 Mailbox.fetch @mbox
 
 mbox = Mailbox.new(@mbox)
diff --git a/www/secretary/workbench/views/index.json.rb b/www/secretary/workbench/views/index.json.rb
index c685b42..2df5801 100644
--- a/www/secretary/workbench/views/index.json.rb
+++ b/www/secretary/workbench/views/index.json.rb
@@ -1,4 +1,5 @@
 # find indicated mailbox in the list of available mailboxes
+# This code is invoked by workbench/server.rb
 available = Dir["#{ARCHIVE}/*.yml"].sort
 index = available.find_index "#{ARCHIVE}/#{@mbox}.yml"