diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 50a254dfc09..c887d9123e0 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -136,7 +136,7 @@ bound to delete-backward-char.")
 (defun vip-push-mark-silent (&optional location)
   "Set mark at LOCATION (point, by default) and push old mark on mark ring.
 No message."
-  (if (null (mark))
+  (if (null (mark t))
       nil
     (setq mark-ring (cons (copy-marker (mark-marker)) mark-ring))
     (if (> (length mark-ring) mark-ring-max)