diff --git a/src/if_perl.xs b/src/if_perl.xs
index 2d5ab46..d344938 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -1234,7 +1234,7 @@
 		    {
 			ml_delete(lnum, 0);
 			deleted_lines_mark(lnum, 1L);
-			if (aco.save_buf == curbuf)
+			if (aco.save_curbuf == curbuf)
 			    check_cursor();
 		    }