From 185622c1b3152dc53e3659b3d8191216df283b6a Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Sat, 19 Sep 2009 20:33:52 +0000
Subject: properly send atoms with spaces

svn path=/trunk/externals/tclpd/; revision=12405
---
 properties.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'properties.tcl')

diff --git a/properties.tcl b/properties.tcl
index addb624..d225d74 100644
--- a/properties.tcl
+++ b/properties.tcl
@@ -415,7 +415,7 @@ proc propertiespanel_apply {w} {
         lappend newconf $key $v
     }
     set newconf [string map {$ \\$} $newconf]
-    pd [concat $::id($w) config {*}$newconf \;]
+    pd [linsert $newconf 0 $::id($w) config]\;
 }
 
 proc propertiespanel_close {w} {
-- 
cgit v1.2.1