diff --git a/lisp/org.el b/lisp/org.el
index 6327579a5..7b392ec2b 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -15315,7 +15315,8 @@ Returns the new tags string, or nil to not change the current settings."
 				"Tag: "
 				(or buffer-tags
 				    (with-current-buffer buf
-				      (org-get-buffer-tags)))))
+				      (setq buffer-tags
+					    (org-get-buffer-tags))))))
 		    (quit (setq tg "")))
 		  (when (string-match "\\S-" tg)
 		    (add-to-list 'buffer-tags (list tg))