1 files changed, 6 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl
index d144152..2f09700 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -204,6 +204,12 @@ catch {
 }
 puts "TEST 28 PASSED"
 
+# REGTEST 29
+# Reference counting problem at exit
+set x [lindex {} 0]
+info source $x
+eval $x
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"