diff --git a/scsh/lib/char-package.scm b/scsh/lib/char-package.scm
index 1d535c1..318aafd 100644
--- a/scsh/lib/char-package.scm
+++ b/scsh/lib/char-package.scm
@@ -1,7 +1,7 @@
 ;;; These defs are things for characters *not* in SRFIs 13 & 14.
 ;;; It includes some R5RS defs that are not correct in S48 in a Latin-1 world.
 
-(define-interface char-set-predicates-interface
+(define-interface char-predicates-interface
   (export
    ((char-lower-case?		; R5RS
      char-upper-case?		; R5RS
@@ -24,7 +24,7 @@
      char-ascii?)		(proc (:char) :boolean))))
 
 
-(define-structure char-set-predicates-lib char-set-predicates-interface
+(define-structure char-predicates-lib char-predicates-interface
   (open error-package	; ERROR
 	scsh-utilities	; DEPRECATED-PROC
 	char-set-lib