| 
					
				 | 
			
			
				@@ -388,9 +388,8 @@ this ID property, that entry is also checked." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		  (save-excursion 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (goto-char pos) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    ;; find the older sibling, exit if no more siblings 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		    (condition-case nil 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			(outline-backward-same-level 1) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		      (error (throw 'ignore t))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		    (unless (org-get-last-sibling) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		      (throw 'ignore t)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    ;; Check if this entry is not yet done and block 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (unless (org-entry-is-done-p) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		      ;; return nil, to indicate that we block the change! 
			 |