diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 9726b6dd78..82ff55fb9f 100644
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -122,6 +122,10 @@ HINTS: >title string ;
 : >case-fold ( string -- fold )
     >upper >lower ;
 
+: ch-lower? ( ch -- ? ) dup ch>lower = ;
+
+: ch-upper? ( ch -- ? ) dup ch>upper = ;
+
 : lower? ( string -- ? ) dup >lower = ;
 
 : upper? ( string -- ? ) dup >upper = ;