diff --git a/org/qmckl_mo.org b/org/qmckl_mo.org
index 0ee1f28..417c170 100644
--- a/org/qmckl_mo.org
+++ b/org/qmckl_mo.org
@@ -455,15 +455,17 @@ end interface
    otherwise it is kept.
 
    #+begin_src c :comments org :tangle (eval h_func)
-bool qmckl_mo_basis_select_mo (const qmckl_context context,
-                               const int32_t* keep,
-                               const int64_t size_max);
+qmckl_exit_code
+qmckl_mo_basis_select_mo (const qmckl_context context,
+                          const int32_t* keep,
+                          const int64_t size_max);
    #+end_src
    
    #+begin_src c :comments org :tangle (eval c) :exports none
-bool qmckl_mo_basis_select_mo (const qmckl_context context,
-                               const int32_t* keep,
-                               const int64_t size_max)
+qmckl_exit_code
+qmckl_mo_basis_select_mo (const qmckl_context context,
+                          const int32_t* keep,
+                          const int64_t size_max)
 {
   if (qmckl_context_check(context) == QMCKL_NULL_CONTEXT) {
     return qmckl_failwith( context,