From 85b0ae7a53d8338d199a372d0b28e6f958b9c196 Mon Sep 17 00:00:00 2001
From: Robert McLay <mclay@zaniahgroup.com>
Date: Wed, 27 Oct 2021 18:03:02 -0500
Subject: [PATCH] Issue #537: remove trailing newlines on all arguments that
 use proc cmdargs

---
 README.new      | 5 ++---
 src/tcl2lua.tcl | 1 +
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.new b/README.new
index 35f92185e..c9fd147f3 100644
--- a/README.new
+++ b/README.new
@@ -51,6 +51,5 @@ W.I.P:
             * Change MT:lookup_w_userName(userName) to support partial version string matches.
               This is an update to Issue #518 fix in 8.5.7
             * Modify test.yml to support running "make busted"
-            
-   
-
+	    * Issue #537: Remove all trailing newlines from TCL arguments
+	    
diff --git a/src/tcl2lua.tcl b/src/tcl2lua.tcl
index ae8e72365..2a0f38e4b 100755
--- a/src/tcl2lua.tcl
+++ b/src/tcl2lua.tcl
@@ -591,6 +591,7 @@ proc cmdargs { cmd args } {
     global g_outputA
     foreach arg $args {
         set val [doubleQuoteEscaped $arg]
+	set val [string trimright $val "\r\n"]
         lappend cmdArgsL "\"$val\""
     }
     if {[info exists cmdArgsL]} {