Index: openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	3 May 2006 11:52:08 -0000	1.1.2.1
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	14 Jul 2006 01:19:40 -0000	1.1.2.2
@@ -125,8 +125,8 @@
   }
   regsub -all SELF $initcmd [self] initcmd
   append initcmd \n\
-      "set ::xotcl::currentScript [info script]" \n\
-      "set ::xotcl::currentThread [self]" \n\
+      [list set ::xotcl::currentScript [info script]] \n\
+      [list set ::xotcl::currentThread [self]] \n\
       $cmd 
   my set mutex [thread::mutex create]
   ns_log notice "mutex [my set mutex] created"