diff --git a/src/filepath.c b/src/filepath.c
index 3a06eec..cf401dc 100644
--- a/src/filepath.c
+++ b/src/filepath.c
@@ -563,7 +563,11 @@
 	}
 	else				// :r
 	{
-	    if (s > tail)	// remove one extension
+	    char_u *limit = *fnamep;
+
+	    if (limit < tail)
+		limit = tail;
+	    if (s > limit)	// remove one extension
 		*fnamelen = (int)(s - *fnamep);
 	}
 	*usedlen += 2;