X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=manager%2Fcontrols.lsp;h=b4779aee24a9e5684483b8c387e04702c1c4803c;hb=8e3c55b65d2acf7ed3ab2f9eeaffcc5b9d6d117f;hp=c7172006f7955a475f11e9f11d41f6618ca4ea45;hpb=05a9c528d8aee0373f52fa1bc72250e7f3625e76;p=rrq%2Fhourglass.git

diff --git a/manager/controls.lsp b/manager/controls.lsp
index c717200..b4779ae 100644
--- a/manager/controls.lsp
+++ b/manager/controls.lsp
@@ -28,9 +28,9 @@
  end-options '()
  limit-options '()
  )
-(dotimes (h 23) (dolist (m '(0 30))
+(dotimes (h 24) (dolist (m '(0 30))
                   (push (format "%02d:%02d" h m) start-options -1)))
-(dotimes (h 23) (dolist (m '(0 30))
+(dotimes (h 24) (dolist (m '(0 30))
                   (push (format "%02d:%02d" h m) end-options -1)))
 (for (h 1 8) (dolist (m '(0 30))
                (push (format "%02d:%02d" h m) limit-options -1)))