1 files changed, 3 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 514810b83fa..42a53276bc8 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3163,7 +3163,9 @@ cleanup_vector (struct Lisp_Vector *vector)
         PSEUDOVEC_STRUCT (vector, Lisp_Subr);
       if (!NILP (subr->native_comp_u[0]))
         {
-          xfree (subr->symbol_name);
+          /* FIXME Alternative and non invasive solution to this
+             cast?  */
+          xfree ((char *)subr->symbol_name);
           xfree (subr->native_c_name[0]);
         }
     }