diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index 3cbac0751d8a5ff229cc668de6dd2d5a2e94960e..7d74641dcae7df5b3e5ab024073808bbbb417575 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -506,7 +506,7 @@ static char *pdgui_path;
 /* The "pd" command, which cats its args together and throws the result
 * at the Pd interpreter.
 */
-#define MAXWRITE 1024
+#define MAXWRITE 8192
 
 static int pdCmd(ClientData cd, Tcl_Interp *interp, int argc,  char **argv)
 {