diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index 7e9512d046..0742b429f6 100644
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -64,12 +64,6 @@ CONSTANT: month-names
         "July" "August" "September" "October" "November" "December"
     }
 
-<PRIVATE
-
-: (month-name) ( n -- string ) 1 - month-names nth ;
-
-PRIVATE>
-
 GENERIC: month-name ( obj -- string )
 
 M: integer month-name check-month 1 - month-names nth ;