diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 6f02f2f12..9d5b2786b 100644
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -83,7 +83,7 @@ proc test {name code {okpattern undefined}} {
         return
     }
 
-    # abort if test name in skiptests
+    # abort if only_tests was set but test name is not included
     if {[llength $::only_tests] > 0 && [lsearch $::only_tests $name] < 0} {
         incr ::num_skipped
         send_data_packet $::test_server_fd skip $name
diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 1a986e2f7..8b4572971 100644
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -385,7 +385,7 @@ proc signal_idle_client fd {
 # The the_end function gets called when all the test units were already
 # executed, so the test finished.
 proc the_end {} {
-    # TODO: print the status, exit with the rigth exit code.
+    # TODO: print the status, exit with the right exit code.
     puts "\n                   The End\n"
     puts "Execution time of different units:"
     foreach {time name} $::clients_time_history {