From c412790b5340492bee92a169cfed37e6ac4c765a Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Fri, 23 Jun 1995 07:21:14 +0000
Subject: [PATCH] (run_command): preserve special characters in command
 invocation.

---
 lists.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lists.tcl b/lists.tcl
index 47ca61e..58533fa 100644
--- a/lists.tcl
+++ b/lists.tcl
@@ -222,7 +222,7 @@ widget tkinspect_list {
 	if [string length $slot(command)] {
 	    set slot(current_item) $item
 	    if [string length $slot(current_item)] {
-		uplevel #0 [concat $slot(command) $slot(current_item)]
+		uplevel #0 [concat $slot(command) [list $slot(current_item)]]
 	    }
 	}	
     }
-- 
2.23.0