- do not report an error on Publish when macro already exists

macro.c

@@ -943,6 +943,13 @@ static int ProtectedExec(ClientData clientData, Tcl_Interp *interp,
       return 0;
     }
  
+    /* check if the macro already exists */
+    pNew = FindCommandData(pSics, argv[1], "Macro");
+    if (pNew)
+    { /* yes -> overwrite access code */
+      pNew->iUser = iUser;
+      return 0;
+    }
     /* do a job !*/
     pNew = CreatePublish(argv[1],iUser);
     if(!pNew)