diff --git a/tests/thread.test b/tests/thread.test
index 38f7379..e25b7ed 100644
--- a/tests/thread.test
+++ b/tests/thread.test
@@ -1263,6 +1263,11 @@ test thread-22.1  {thread::send -command} {
     set result
 } hello
 
+test thread-bug-f32864afe3 {Hang in thread::eval -lock} -body {
+    set mu [thread::mutex create]
+    thread::eval -lock $mu {}
+    thread::mutex destroy $mu ; # <- Bug f32864af hang
+} -result {} -constraints bug-f32864afe3
 
 removeFile dummyForTransfer
 ::tcltest::cleanupTests