diff --git a/src/fpm_command_line.f90 b/src/fpm_command_line.f90
index 3e77f5808e..8fd8b31c30 100644
--- a/src/fpm_command_line.f90
+++ b/src/fpm_command_line.f90
@@ -720,7 +720,7 @@ subroutine get_command_line_settings(cmd_settings)
                 allocate(fpm_clean_settings :: cmd_settings)
                 call get_current_directory(working_dir, error)
                 cmd_settings = fpm_clean_settings( &
-                &   calling_dir=working_dir, &
+                &   working_dir=working_dir, &
                 &   clean_skip=skip, &
                 &   clean_all=clean_all, &
                 &   path_to_config=config_file)