Dependencies: Fix bug in blocker hook

The blocker hook did block entries if an older sibling had TODO children.

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-03-27  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-block-todo-from-children-or-siblings): Fix bug in
+	blocker code, when an older sibling has children.
+
 	* org-mac-message.el (org-mac-message-get-link): Improve getting
 	links from multiple selected messages.
 

lisp/org.el

@@ -8910,12 +8910,11 @@ changes.  Such blocking occurs when:
 	(let* ((this-level (funcall outline-level))
 	       (current-level this-level))
 	  (while (and (not (bobp))
-		      (= current-level this-level))
+		      (>= current-level this-level))
 	    (outline-previous-heading)
 	    (setq current-level (funcall outline-level))
 	    (if (= current-level this-level)
-		;; this todo has children, check whether they are all
-		;; completed
+		;; This is a younger sibling, check if it is completed
 		(if (and (not (org-entry-is-done-p))
 			 (org-entry-is-todo-p))
 		    (throw 'dont-block nil)))))))