diff --git a/basis/ascii/ascii.factor b/basis/ascii/ascii.factor
index a1bd87e5da..bd1b86b279 100644
--- a/basis/ascii/ascii.factor
+++ b/basis/ascii/ascii.factor
@@ -18,9 +18,6 @@ IN: ascii
 : >lower ( str -- lower ) [ ch>lower ] map ;
 : ch>upper ( ch -- upper ) dup letter? [ HEX: 20 - ] when ; inline
 : >upper ( str -- upper ) [ ch>upper ] map ;
-: ch-lower? ( ch -- ? ) dup ch>lower = ;
-: ch-upper? ( ch -- ? ) dup ch>upper = ;
-
 
 HINTS: >lower string ;
 HINTS: >upper string ;