diff --git a/tests/sentinel.tcl b/tests/sentinel.tcl
index e278aea70fa288c494d719ceb11273249cb96a5e..b15bce65634cd5cd057ff5a3e9ebcb7ae73bf24a 100644
--- a/tests/sentinel.tcl
+++ b/tests/sentinel.tcl
@@ -145,6 +145,8 @@ proc test {descr code} {
             set msg [string range $error 10 end]
             puts [colorstr red $msg]
             if {$::pause_on_error} pause_on_error
+            puts "(Jumping to next unit after error)"
+            return -code continue
         } else {
             # Re-raise, let handler up the stack take care of this.
             error $error $::errorInfo