diff --git a/ckuus5.c b/ckuus5.c
index fdd286b..22d86d8 100644
--- a/ckuus5.c
+++ b/ckuus5.c
@@ -291,8 +291,8 @@ char * ikprompt = "\\v(dir) IKSD>";
 #ifdef UNIX
 /* Note: parens, not brackets, because of ISO646 */
 /* Collapse long paths using ~ notation if in home directory tree */
-char * ckprompt = "(\\freplace(\\v(dir),\\fpathname(\\v(home)),~/)) C-Kermit>";
-char * ikprompt = "(\\freplace(\\v(dir),\\fpathname(\\v(home)),~/)) IKSD>";
+char * ckprompt = "(\\fsubstr(\\freplace(X\\v(dir),X\\fpathname(\\v(home)),X~/),2)) C-Kermit>";
+char * ikprompt = "(\\fsubstr(\\freplace(X\\v(dir),X\\fpathname(\\v(home)),X~/),2)) IKSD>";
 #else
 /* Default prompt for other platforms */
 char * ckprompt = "(\\v(dir)) C-Kermit>"; /* Default prompt for others */