diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index af37ebf492..f4d2f3ae0e 100644
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -405,6 +405,9 @@ M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ;
 : today ( -- timestamp )
     now midnight ; inline
 
+: today? ( timestamp -- ? )
+    now same-day? ; inline
+
 : tomorrow ( -- timestamp )
     1 days hence midnight ; inline