diff --git a/src/Data_Type_Command_Line_Interface.F90 b/src/Data_Type_Command_Line_Interface.F90
index 1a065f0d..6129bb05 100644
--- a/src/Data_Type_Command_Line_Interface.F90
+++ b/src/Data_Type_Command_Line_Interface.F90
@@ -2315,6 +2315,7 @@ subroutine add(cli, pref, group, group_index, switch, switch_ab, help, required,
   cla%hidden     = .false.                 ; if (present(hidden    )) cla%hidden     = hidden
   cla%act        = action_store            ; if (present(act       )) cla%act        = trim(adjustl(Upper_Case(act)))
                                              if (present(def       )) cla%def        = def
+                                             if (present(def       )) cla%val        = def
                                              if (present(nargs     )) cla%nargs      = nargs
                                              if (present(choices   )) cla%choices    = choices
   cla%m_exclude  = ''                      ; if (present(exclude   )) cla%m_exclude  = exclude