diff --git a/debug.rkt b/debug.rkt
index b98d901..a843e92 100644
--- a/debug.rkt
+++ b/debug.rkt
@@ -26,14 +26,17 @@
   
   (define (make-date-string)
     (define date (current-date))
-    (define date-fields (map (λ(x) (zero-fill x 2)) (list
-                                   (date-day date)
-                                   (list-ref months (sub1 (date-month date)))
-                                   (modulo (date-hour date) 12)
-                                   (date-minute date)
-                                   (date-second date)
-                                ;   (if (< (date-hour date) 12) "am" "pm")
-                                   )))  
+    (define date-fields (map (λ(x) (zero-fill x 2)) 
+                             (list
+                              (date-day date)
+                              (list-ref months (sub1 (date-month date)))
+                              (if (<= (date-hour date) 12)
+                                  (date-hour date) ; am hours + noon hour
+                                  (modulo (date-hour date) 12)) ; pm hours after noon hour
+                              (date-minute date)
+                              (date-second date)
+                              ;   (if (< (date-hour date) 12) "am" "pm")
+                              )))  
     (apply format "[~a-~a ~a:~a:~a]" date-fields))
   (displayln (string-join `(,(make-date-string) ,@(map (λ(x)(if (string? x) x (~v x))) items))) (current-error-port)))