Fix `org-refresh-property'

* lisp/org.el(org-refresh-property): Fixed by comparison to the code
  before the refactoring.

With commit 126a1cd7c the "Effort" property broke the agenda.

lisp/org.el

@@ -9677,8 +9677,8 @@ sub-tree if optional argument INHERIT is non-nil."
 	    ;; TPROP is a text property symbol.
 	    (put-text-property start end tprop p)
 	  ;; TPROP is an alist with (property . function) elements.
-	  (pcase-dolist (`(,p . ,f) tprop)
-	    (put-text-property start end p (funcall f p))))))))
+	  (pcase-dolist (`(,prop . ,f) tprop)
+	    (put-text-property start end prop (funcall f p))))))))
 
 (defun org-refresh-category-properties ()
   "Refresh category text properties in the buffer."