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.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	2 Nov 2008 11:02:00 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	13 Apr 2013 08:28:19 -0000	1.11
@@ -150,7 +150,7 @@
   $obj set recreate 1
   next
   $obj init [lindex $args 0]
-  if {[nsv_exists [self] $obj]} {
+  if {[nsv_exists [self] $obj] && [$obj exists initcmd]} {
     set tid [nsv_get [self] $obj]
     ::thread::send $tid [$obj set initcmd]
     $obj set tid $tid