Index: openacs-4/packages/xotcl-core/tcl/thread_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/thread_mod-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/thread_mod-procs.tcl	30 Dec 2005 00:04:44 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/thread_mod-procs.tcl	24 Mar 2006 12:54:59 -0000	1.6
@@ -101,6 +101,9 @@
     -instrecreate 1 \
     -parameter {{persistent 0}}
 
+#Class create ::xotcl::THREAD \
+#    -parameter {{persistent 0}}
+
 ::xotcl::THREAD instproc check_blueprint {} {
   if {![[self class] exists __blueprint_checked]} {
     if {[string first ::xotcl::THREAD [ns_ictl get]] == -1} {