diff --git a/tests/tsv.test b/tests/tsv.test
index 3509c87..5926426 100644
--- a/tests/tsv.test
+++ b/tests/tsv.test
@@ -104,4 +104,15 @@ foreach backend $backends {
     file delete -force $db
 }
 
+test tsv-bug-c2dfd8b7ea {tsv::lset crash} -constraints crash -setup {
+    set tid [thread::create]
+} -cleanup {
+    thread::join $tid
+} -body {
+    thread::send $tid {
+        tsv::linsert mytsv mylist 0 A {X Y}
+        tsv::lset mytsv mylist end 1 P
+    }
+}
+
 ::tcltest::cleanupTests