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.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	28 May 2008 18:04:21 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	2 Nov 2008 11:02:00 -0000	1.10
@@ -124,8 +124,9 @@
       package req XOTcl
       namespace import -force ::xotcl::*
     }
-  } 
+  }
   append initcmd {
+    ns_thread name SELF
     ::xotcl::Object setExitHandler {
       #my log "EXITHANDLER of slave thread SELF [pid]"
     }