diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1a8ce19e..b99e3cc1 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,6 @@
 1.0.0-b12
 
+* Use -p to print suites from unit test main.
 * BEAST_EXPECTS to add a reason string to test failures
 * Fix unit test runner to output all case names
 * Update README for build requirements
diff --git a/extras/beast/unit_test/main.cpp b/extras/beast/unit_test/main.cpp
index c6653014..ffa3b289 100644
--- a/extras/beast/unit_test/main.cpp
+++ b/extras/beast/unit_test/main.cpp
@@ -90,7 +90,7 @@ int main(int ac, char const* av[])
     po::options_description desc("Options");
     desc.add_options()
        ("help,h",  "Produce a help message")
-       ("print,r", "Print the list of available test suites")
+       ("print,p", "Print the list of available test suites")
        ("suites,s", po::value<string>(), "suites to run")
         ;