org-choose.el: Fix bug.

contrib/ChangeLog

@@ -1,3 +1,8 @@
+2009-04-08  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* lisp/org-choose.el (org-choose-get-fn-map-group): Fix bug with
+	level selection.
+
 2009-04-01  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* lisp/org-exp-bibtex.el (org-export-bibtex-preprocess): Handle

contrib/lisp/org-choose.el

@@ -388,9 +388,9 @@ setting was changed."
        (require 'org-agenda) ;; `org-map-entries' seems to need it.
 	(save-excursion
 	  (unless (org-up-heading-safe)
-	    (error "Chosing is only supported between siblings in a tree, not on top level"))
+	    (error "Choosing is only supported between siblings in a tree, not on top level"))
 	  (let
- 	      ((level (org-reduced-level (org-outline-level))))
+ 	      ((level (1+ (org-reduced-level (org-outline-level)))))
 	    (save-restriction
 	      (org-map-entries 
 	       fn