diff --git a/pd/nw/pdgui.js b/pd/nw/pdgui.js
index 242c64b23a85829fcf27d64d2000d9e332703517..80664e7afaae85cd519d5dc1f195b84f6ac44cd5 100644
--- a/pd/nw/pdgui.js
+++ b/pd/nw/pdgui.js
@@ -347,7 +347,7 @@ function gui_post_error(objectid, loglevel, errormsg) {
 }
 
 function gui_legacy_tcl_command(file, line_number, text) {
-    post("legacy tcl command at " + line_number + " of " + file);
+    post("legacy tcl command at " + line_number + " of " + file + ": " + text);
 }
 
 function clear_console() {
diff --git a/pd/src/s_inter.c b/pd/src/s_inter.c
index 88fb1974a0c17f55a81e8ee0caaad96e8550b193..cbae4754e8dc24d3f606a0c1d384065f747852c4 100644
--- a/pd/src/s_inter.c
+++ b/pd/src/s_inter.c
@@ -756,7 +756,7 @@ static void escape_double_quotes(const char *src) {
     while(*s)
     {
         len++;
-        if (*s == '\"')
+        if (*s == '\"' || *s == '\\')
         {
             dq++;
         }
@@ -771,10 +771,10 @@ static void escape_double_quotes(const char *src) {
         s = src;
         while(*s)
         {
-            if (*s == '\"')
+            if (*s == '\"' || *s == '\\')
             {
                 *tmp++ = '\\';
-                *tmp++ = '\"';
+                *tmp++ = *s;
             }
             else
             {
@@ -951,11 +951,8 @@ void sys_vguid(const char *file, int line, const char *fmt, ...)
             strncat(bufp, "...", MAXPDSTRING);
         }
     }
-    /* For now, we're sending a dummy string instead of bufp to the GUI.
-       Unlike Pd messages, old tcl commands can contain stray backslashes
-       that can mess up the double quote delimiters for strings in gui_vmess.*/
     gui_vmess("gui_legacy_tcl_command", "sis",
-        file, line, "dummy");
+        file, line, bufp);
     //sys_vvguid(file,line,fmt,ap);
 }