1 files changed, 1 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 750ffbd2dd8..514810b83fa 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3161,7 +3161,7 @@ cleanup_vector (struct Lisp_Vector *vector)
     {
       struct Lisp_Subr *subr =
         PSEUDOVEC_STRUCT (vector, Lisp_Subr);
-      if (subr->native_comp_u[0])
+      if (!NILP (subr->native_comp_u[0]))
         {
           xfree (subr->symbol_name);
           xfree (subr->native_c_name[0]);