Fixed quoting bugs when saving to file.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>

diff --git a/bin/sockspy.tcl b/bin/sockspy.tcl
index 2abc6e2ce01a52f61bad9c23bcab1b001e61829d..1833b15cecb2922eda691e3cad4d572e112a01e1 100644 (file)
--- a/bin/sockspy.tcl
+++ b/bin/sockspy.tcl
@@ -1165,7 +1165,7 @@ proc stateRestore {} {
     
     # complain only if it exists and we fail to read it successsfully
     if {[file exists $stateFile]} {
-       uplevel #0 source $stateFile
+       uplevel #0 [list source $stateFile]
     }
     
     set state(stateFile) $stateFile
@@ -1227,7 +1227,7 @@ proc stateSaveReal {} {
     
     puts $sf ""
     foreach v $::saveList {
-       puts $sf "set $v \"[string map {[ \\[ \\ \\\\} [set $v]]\""
+       puts $sf [list set $v [set $v]]
     }
     close $sf
 }