diff --git a/macro.c b/macro.c
index b4abcf96..7ba4d3e8 100644
--- a/macro.c
+++ b/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)