diff --git a/scsh/lib/cset-obsolete.scm b/scsh/lib/cset-obsolete.scm
index c37e761..cb041c4 100644
--- a/scsh/lib/cset-obsolete.scm
+++ b/scsh/lib/cset-obsolete.scm
@@ -6,8 +6,9 @@
 	  chars->char-set		; list->char-set
 	  ascii-range->char-set		; ucs-range->char-set (not exact)
 	  predicate->char-set		; char-set-filter (not exact)
-	  ->char-set			; no longer handles a predicate
+	  ;->char-set			; no longer handles a predicate
 	  char-set-every?		; char-set-every
+	  char-set-any?			; char-set-any
 
 	  char-set-invert		; char-set-complement
 	  char-set-invert!		; char-set-complement!
@@ -38,13 +39,16 @@
 		       "Change code to use CHAR-SET-FILTER."))
     (define char-set-every?
       (deprecated-proc char-set-every 'char-set-every?
-		       "Use CHAR-SET-EVERYyn instead."))
+		       "Use CHAR-SET-EVERY instead."))
+    (define char-set-any?
+      (deprecated-proc char-set-every 'char-set-any?
+		       "Use CHAR-SET-ANY instead."))
     (define char-set-invert
       (deprecated-proc char-set-complement 'char-set-invert
-		       "Use CHAR-SET-COMPLEMENTyn instead."))
+		       "Use CHAR-SET-COMPLEMENT instead."))
     (define char-set-invert!
       (deprecated-proc char-set-complement! 'char-set-invert!
-		       "Use CHAR-SET-COMPLEMENT!yn instead."))
+		       "Use CHAR-SET-COMPLEMENT! instead."))
 
     (define char-set:alphabetic		char-set:letter)
     (define char-set:numeric		char-set:digit)