Index: tests/test_vectors/Hash/all.tcl
==================================================================
--- tests/test_vectors/Hash/all.tcl
+++ tests/test_vectors/Hash/all.tcl
@@ -39,6 +39,6 @@
     }
     ::tcltest::runAllTests
 }
 
 #  Exit code: 0=all passed, 1=one or more failed
-exit $::exitCode
+return $::exitCode

Index: tests/test_vectors/KDF/all.tcl
==================================================================
--- tests/test_vectors/KDF/all.tcl
+++ tests/test_vectors/KDF/all.tcl
@@ -39,6 +39,6 @@
     }
     ::tcltest::runAllTests
 }
 
 #  Exit code: 0=all passed, 1=one or more failed
-exit $::exitCode
+return $::exitCode

Index: tests/test_vectors/MAC/all.tcl
==================================================================
--- tests/test_vectors/MAC/all.tcl
+++ tests/test_vectors/MAC/all.tcl
@@ -39,6 +39,6 @@
     }
     ::tcltest::runAllTests
 }
 
 #  Exit code: 0=all passed, 1=one or more failed
-exit $::exitCode
+return $::exitCode

DELETED tests/test_vectors/all.tcl
Index: tests/test_vectors/all.tcl
==================================================================
--- tests/test_vectors/all.tcl
+++ /dev/null
@@ -1,44 +0,0 @@
-# all.tcl --
-#
-# This file contains a top-level script to run all of the Tcl
-# tests.  Execute it by invoking "source all.test" when running tcltest
-# in this directory.
-#
-# Copyright (c) 1998-2000 by Ajuba Solutions.
-# All rights reserved.
-#
-# RCS: @(#) $Id: all.tcl,v 1.5 2000/08/15 18:45:01 hobbs Exp $
-
-if {[lsearch [namespace children] ::tcltest] == -1} {
-    package require tcltest
-    namespace import ::tcltest::*
-}
-
-set ::tcltest::testSingleFile false
-set ::tcltest::testsDirectory [file dir [info script]]
-
-# We should ensure that the testsDirectory is absolute.
-# This was introduced in Tcl 8.3+'s tcltest, so we need a catch.
-catch {::tcltest::normalizePath ::tcltest::testsDirectory}
-
-#
-# Run all tests in current and any sub directories with an all.tcl file.
-#
-set ::exitCode 0
-if {[package vsatisfies [package require tcltest] 2.5-]} {
-    if {[::tcltest::runAllTests] == 1} {
-	set ::exitCode 1
-    }
-
-} else {
-    # Hook to determine if any of the tests failed. Then we can exit with the
-    # proper exit code: 0=all passed, 1=one or more failed
-    proc tcltest::cleanupTestsHook {} {
-	variable numTests
-	set ::exitCode [expr {$numTests(Total) == 0 || $numTests(Failed) > 0}]
-    }
-    ::tcltest::runAllTests
-}
-
-#  Exit code: 0=all passed, 1=one or more failed
-exit $::exitCode