Index: openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	12 Dec 2017 10:27:11 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	13 Jun 2019 06:51:52 -0000	1.5
@@ -55,7 +55,7 @@
 	@param cmd the full command as executed by Tcl
 	@param op the trace operation 
     } {
-	lassign $cmd cmdname severity msg
+	set msg [join [lassign $cmd cmdname severity]]
 	set severity [string totitle $severity]
 	if {![info exists ::__log_severities]} {
 	    set ::__log_severities [::parameter::get_from_package_key \