diff --git a/init.org b/init.org
index 7f6917c..3e22756 100644
--- a/init.org
+++ b/init.org
@@ -2320,19 +2320,17 @@ What if...
 :CUSTOM_ID: my-chronometrist-copy-exercise-data
 :END:
 #+BEGIN_SRC emacs-lisp
-(defun my-chronometrist-copy-exercise-data (&optional date)
-  "Add exercise data from OsmAnd tracks to Chronometrist.
-Only tracks for today's date are considered."
+(defun my-chronometrist-copy-exercise-data ()
+  "Add exercise data from OsmAnd tracks to Chronometrist."
   (interactive)
-  (if-let* ((day (if date
-                     (parse-iso8601-time-string date)
-                   (current-time)))
-            (dir (concat "/media/data/phone/contrapunctus/Nokia 6.1/Android/data/net.osmand.plus/files/tracks/rec/"
-                         (format-time-string "%+4Y-%m/" day)))
+  (if-let* ((date-iso (read-string "Date (ISO-8601): " (format-time-string "%F")))
+            (date     (parse-iso8601-time-string date-iso))
+            (dir      (concat "/media/data/phone/contrapunctus/Nokia 6.1/Android/data/net.osmand.plus/files/tracks/rec/"
+                              (format-time-string "%+4Y-%m/" date)))
             (dir-check (file-exists-p dir))
             (plists    (cl-loop with activity
                          for file in (directory-files dir)
-                         when (and (string-match-p (format-time-string "^%F_" day)
+                         when (and (string-match-p (format-time-string "^%F_" date)
                                                    file)
                                    (or (and (string-match-p "(walk)" file)
                                             (setq activity :walking))