diff --git a/README.org b/README.org
index 8f9a8b1..270230b 100644
--- a/README.org
+++ b/README.org
@@ -367,6 +367,7 @@ Expands into a call to ~org-ql-select~ with the same arguments.  For convenience
 
 *Fixed*
 +  In =org-ql-search=, accept symbol as ~:super-groups~ argument.
++  In the =This week= and =Next week= default =org-ql-views= views, set timestamps for beginning-of-week to 00:00:00 and end-of-week to 23:59:59.
 
 ** 0.3.1
 
diff --git a/org-ql-view.el b/org-ql-view.el
index d65a7a7..1519873 100644
--- a/org-ql-view.el
+++ b/org-ql-view.el
@@ -147,8 +147,13 @@ See info node `(elisp)Cyclic Window Ordering'."
         (cons "This week" (lambda ()
                             "Show items with an active timestamp during this calendar week."
                             (interactive)
-                            (let* ((beg-of-week (ts-adjust 'day (- (ts-dow (ts-now))) (ts-now)))
-                                   (end-of-week (ts-adjust 'day (- 6 (ts-dow (ts-now))) (ts-now))))
+                            (let* ((ts (ts-now))
+                                   (beg-of-week (->> ts
+                                                     (ts-adjust 'day (- (ts-dow (ts-now))))
+                                                     (ts-apply :hour 0 :minute 0 :second 0)))
+                                   (end-of-week (->> ts
+                                                     (ts-adjust 'day (- 6 (ts-dow (ts-now))))
+                                                     (ts-apply :hour 23 :minute 59 :second 59))))
                               (org-ql-search (org-agenda-files)
                                 `(ts-active :from ,beg-of-week
                                             :to ,end-of-week)
@@ -159,8 +164,12 @@ See info node `(elisp)Cyclic Window Ordering'."
                             "Show items with an active timestamp during the next calendar week."
                             (interactive)
                             (let* ((ts (ts-adjust 'day 7 (ts-now)))
-                                   (beg-of-week (ts-adjust 'day (- (ts-dow (ts-now))) ts))
-                                   (end-of-week (ts-adjust 'day (- 6 (ts-dow (ts-now))) ts)))
+                                   (beg-of-week (->> ts
+                                                     (ts-adjust 'day (- (ts-dow (ts-now))))
+                                                     (ts-apply :hour 0 :minute 0 :second 0)))
+                                   (end-of-week (->> ts
+                                                     (ts-adjust 'day (- 6 (ts-dow (ts-now))))
+                                                     (ts-apply :hour 23 :minute 59 :second 59))))
                               (org-ql-search (org-agenda-files)
                                 `(ts-active :from ,beg-of-week
                                             :to ,end-of-week)