1 files changed, 7 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl
index 5e66aa3..99a65fe 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -399,6 +399,13 @@ set json {
 catch {json::decode $json}
 puts "TEST 56 PASSED"
 
+if {[exists -command debug]} {
+    set f [open /dev/null w]
+    $f puts [debug objects]
+    $f close
+}
+puts "TEST 57 PASSED"
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"