From: sls <sls>
Date: Fri, 23 Jun 1995 07:21:14 +0000 (+0000)
Subject: (run_command): preserve special characters in command invocation.
X-Git-Tag: r5_1_5~2
X-Git-Url: http://www.privyetmir.co.uk/gitweb?a=commitdiff_plain;h=c412790b5340492bee92a169cfed37e6ac4c765a;p=tkinspect

(run_command): preserve special characters in command invocation.
---

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)]]
 	    }
 	}	
     }