Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.78.2.7 -r1.78.2.8
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	2 Jan 2016 00:06:38 -0000	1.78.2.7
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Jan 2016 22:25:31 -0000	1.78.2.8
@@ -111,10 +111,10 @@
   namespace eval ::nsf::debug {}
   
   proc ::nsf::debug::call {level objectInfo methodInfo arglist} {
-      ns_log Warning "DEBUG call($level) - $objectInfo $methodInfo $arglist"
+    ns_log Warning "DEBUG call($level) - {$objectInfo} {$methodInfo} $arglist"
   }
   proc ::nsf::debug::exit {level objectInfo methodInfo usec} {
-      ns_log Warning "DEBUG exit($level) - $objectInfo $methodInfo $usec usec"
+    ns_log Warning "DEBUG exit($level) - {$objectInfo} {$methodInfo} $usec usec"
   }
 }