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.12 -r1.13
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	12 Aug 2013 20:01:06 -0000	1.12
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	27 Oct 2014 16:42:01 -0000	1.13
@@ -202,19 +202,19 @@
       }
       nsv_set [self class] [self] $tid
       if {[my persistent]} {
-	my log "--created new persistent [self class] as $tid pid=[pid]"
+    my log "--created new persistent [self class] as $tid pid=[pid]"
       } else {
-	my log "--created new [self class] as $tid pid=[pid]"
+    my log "--created new [self class] as $tid pid=[pid]"
       }
       #my log "--THREAD DO send [self] epoch = [ns_ictl epoch]"
       if {[my lightweight]} {
       } elseif {![ns_ictl epoch]} {
-	#ns_log notice "--THREAD send [self] no epoch"
-	# We are during initialization. For some unknown reasons, XOTcl 
-	# is not available in newly created threads, so we have to care 
-	# for full initialization, including xotcl blueprint.
-	_ns_savenamespaces
-	set initcmd [ns_ictl get]
+    #ns_log notice "--THREAD send [self] no epoch"
+    # We are during initialization. For some unknown reasons, XOTcl 
+    # is not available in newly created threads, so we have to care 
+    # for full initialization, including xotcl blueprint.
+    _ns_savenamespaces
+    set initcmd [ns_ictl get]
       }
       append initcmd [my set initcmd]
       #ns_log notice "INIT $initcmd"
@@ -262,17 +262,17 @@
 # ::xotcl::THREAD::Proxy configure \
 #     -instproc forward args {
 #       set cp [self calledproc]
-#       if { [string equal $cp "attach"] 
-# 	   || $cp eq "filter" 
-# 	   || $cp eq "detachAll"} {
-# 	next
+#       if { $cp eq "attach"
+#        || $cp eq "filter" 
+#        || $cp eq "detachAll"} {
+#     next
 #       } elseif {$cp eq "destroy"} {
-# 	eval [my attach] do [self] $cp $args
-# 	my log "destroy"
-# 	next
+#     eval [my attach] do [self] $cp $args
+#     my log "destroy"
+#     next
 #       } else {
-# 	my log "forwarding [my attach] do [self] $cp $args"
-# 	eval [my attach] do [self] $cp $args
+#     my log "forwarding [my attach] do [self] $cp $args"
+#     eval [my attach] do [self] $cp $args
 #       }
 #     } -instproc init args {
 #       my filter forward
@@ -290,3 +290,9 @@
   [my server] do [my serverobj] {*}$args
 }
 
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: