improve debug

debug.rkt

@@ -26,10 +26,13 @@
   
   (define (make-date-string)
     (define date (current-date))
-    (define date-fields (map (λ(x) (zero-fill x 2)) (list
+    (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)
+                              (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")