diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 8c0ade22a..dc0ab0467 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -468,7 +468,7 @@ Where possible, use the standard interface for changing this line."
 		    (call-interactively 'org-schedule))))
      ((equal key "BEAMER_env")
       (setq eval '(org-with-point-at pom
-		    (call-interactively 'org-beamer-set-environment-tag))))
+		    (call-interactively 'org-beamer-select-environment))))
      (t
       (setq allowed (org-property-get-allowed-values pom key 'table))
       (if allowed