1 files changed, 1 insertions, 1 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 488fae3644e..73424daaa0c 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -157,7 +157,7 @@ encode_current_directory (void)
                        BVAR (current_buffer, directory));
 
   /* Remove "/:" from dir.  */
-  if (Fstring_match (build_string ("^/:"), dir, Qnil))
+  if (! NILP (Fstring_match (build_string ("^/:"), dir, Qnil)))
     dir = Fsubstring (dir, make_number (2), Qnil);
 
   RETURN_UNGCPRO (dir);