Index: tolbase/lib/toltk/tolinspe.tcl
===================================================================
--- tolbase/lib/toltk/tolinspe.tcl	(revision 3d8e270ee4a4ad4f0860e541de056e0ee56effe4)
+++ tolbase/lib/toltk/tolinspe.tcl	(revision 0318d73e03aa23d3cdf65c102e4fa1c6aa5a8e1a)
@@ -2130,5 +2130,5 @@
   set result [ list ]
   foreach i $lst {
-    lappend result \"$i\"
+    lappend result \"[string map {\" \\\"} $i]\"
   }
   return "SetOfText([join $result ,])"