diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index 9c69128..9192561 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -446,8 +446,9 @@ agenda view showing the flagged items."
 				      x))
 			     (cdr entry)))
 	       (dwds (or (member "|" kwds) (last kwds)))
-	       (twds (org-delete-all dwds kwds)))
+	       (twds kwds))
 	  (insert "#+TODO: " (mapconcat 'identity kwds " ") "\n")
+	  (org-delete-all dwds twds)
 	  (setq todo-kwds (org-delete-all twds todo-kwds))
 	  (setq done-kwds (org-delete-all dwds done-kwds))))
       (when (or todo-kwds done-kwds)