1 files changed, 4 insertions, 0 deletions
diff --git a/stdlib.tcl b/stdlib.tcl
index 289acbf..cf97d3c 100644
--- a/stdlib.tcl
+++ b/stdlib.tcl
@@ -48,6 +48,10 @@ proc stackdump {stacktrace} {
 		if {$line ne ""} {
 			lappend lines $line
 			if {$cmd ne ""} {
+				set nl [string first \n $cmd 1]
+				if {$nl >= 0} {
+					set cmd [string range $cmd 0 $nl-1]...
+				}
 				lappend lines "    $cmd"
 			}
 		}