diff --git a/unravel-emacs.org b/unravel-emacs.org
index b8632eb..2b69678 100644
--- a/unravel-emacs.org
+++ b/unravel-emacs.org
@@ -4232,7 +4232,8 @@ the capture phase ([[#h:f8f06938-0dfe-45c3-b4cf-996d36cba82d][The =unravel-org.e
     (setq org-reverse-note-order nil)
     (setq org-todo-keywords
           '((sequence "TODO(t!)" "WORKING(w!)" "|" "CANCEL(c@)" "DONE(d!)")
-            (sequence "PROJECT(p!)" "FOLLOWUP(f!)" "WAITING(a@/!)" "DELEGATED(e@/!)")))
+            (sequence "PROJECT(p!)" "FOLLOWUP(f!)" "WAITING(a@/!)" "DELEGATED(e@/!)")
+            (sequence "PROSPECT(P!)" "QUAL(q!)" "PROPOSAL(o!)" "WAITING(a@/!)" "NEGOTIATION(n!)" "CONTRACT(c!)" "|" "WON(W!)" "LOST(l@/!)")))
 
     (defface prot/org-bold-done
       '((t :inherit (bold org-done)))
diff --git a/unravel-modules/unravel-org.el b/unravel-modules/unravel-org.el
index 29ac1ef..c5b7073 100644
--- a/unravel-modules/unravel-org.el
+++ b/unravel-modules/unravel-org.el
@@ -146,7 +146,8 @@
   (setq org-reverse-note-order nil)
   (setq org-todo-keywords
         '((sequence "TODO(t!)" "WORKING(w!)" "|" "CANCEL(c@)" "DONE(d!)")
-          (sequence "PROJECT(p!)" "FOLLOWUP(f!)" "WAITING(a@/!)" "DELEGATED(e@/!)")))
+          (sequence "PROJECT(p!)" "FOLLOWUP(f!)" "WAITING(a@/!)" "DELEGATED(e@/!)")
+          (sequence "PROSPECT(P!)" "QUAL(q!)" "PROPOSAL(o!)" "WAITING(a@/!)" "NEGOTIATION(n!)" "CONTRACT(c!)" "|" "WON(W!)" "LOST(l@/!)")))
 
   (defface prot/org-bold-done
     '((t :inherit (bold org-done)))