diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 450eac3f48d..c0b50604897 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* rect.el (rectangle--highlight-for-redisplay): Don't pass `orig' with
+	different calling convention to rectangle--unhighlight-for-redisplay.
+
 2014-07-03  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-call-process): Handle error strings.
diff --git a/lisp/rect.el b/lisp/rect.el
index ac861a0824b..a2f8e4f6371 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -719,7 +719,7 @@ Ignores `line-move-visual'."
    ((not rectangle-mark-mode)
     (funcall orig start end window rol))
    (rectangle--inhibit-region-highlight
-    (rectangle--unhighlight-for-redisplay orig rol)
+    (funcall redisplay-unhighlight-region-function rol)
     nil)
    ((and (eq 'rectangle (car-safe rol))
          (eq (nth 1 rol) (buffer-chars-modified-tick))