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 -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	20 Jun 2006 22:56:53 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	14 Jul 2006 01:22:11 -0000	1.3
@@ -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"