Advice for org-set-tags to disable helm completion

org-no-helm.el

(defun kk/run-with-no-helm (orig-func &rest args)
  "Run a function without helm completion."
  (if (boundp 'helm-mode)
      (let ((orig-helm-mode helm-mode))
	(unwind-protect
	    (progn
	      (helm-mode 0)
	      (apply orig-func args)
	      )
	  (helm-mode (if orig-helm-mode 1 0))))
    (apply orig-func args)
    ))

(advice-add 'org-icompleting-read :around 'kk/run-with-no-helm)
(advice-add 'org-completing-read :around 'kk/run-with-no-helm)
(advice-add 'org-completing-read-no-i :around 'kk/run-with-no-helm)

org-set-tags.el

(defun kk/org-set-tags-no-helm (orig-func &rest args)
  "Run org-set-tags without helm."
  (if (boundp 'helm-mode)
      (let ((orig-helm-mode helm-mode))
	(unwind-protect
	    (progn
	      (helm-mode 0)
	      (apply orig-func args)
	      )
	  (helm-mode (if orig-helm-mode 1 0))))
    (apply orig-func args)
    ))


(advice-add 'org-set-tags :around 'kk/org-set-tags-no-helm)

Worth noting that the way advice is added here is incorrect; otherwise this works :)

Namely, advice should be added like so (notice the missing #):

(advice-add 'org-icompleting-read :around #'kk/run-with-no-helm)

After spending more time on this, the advise option provided doesn't allow for normal completion when tab is pressed in the quick tag selection menu. I found the solution by here to to preferred.