From 1510de1a246be3dba6fd30b32696fd67a6b5a997 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Wed, 12 Jun 2024 02:58:50 +1000
Subject: [PATCH] fix repl tcl::tm::list

---
 src/modules/punk/repl-0.1.tm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/modules/punk/repl-0.1.tm b/src/modules/punk/repl-0.1.tm
index 9841fa3..6d0160f 100644
--- a/src/modules/punk/repl-0.1.tm
+++ b/src/modules/punk/repl-0.1.tm
@@ -2692,6 +2692,8 @@ namespace eval repl {
                 interp eval code {
                     set ::argv0 %argv0%
                     set ::auto_path %autopath%
+                    tcl::tm::remove {*}[tcl::tm::list]
+                    tcl::tm::add {*}%tmlist% 
                     #puts "-->[chan names]"
                     package require punk
                     package require punk::ns