diff --git a/appl/otp/otp.c b/appl/otp/otp.c
index a1f9ed6c9..ac192c12d 100644
--- a/appl/otp/otp.c
+++ b/appl/otp/otp.c
@@ -51,15 +51,6 @@ usage (void)
   exit (1);
 }
 
-static void
-strlwr (char *s)
-{
-  while(*s) {
-    *s = tolower(*s);
-    s++;
-  }
-}
-
 static int
 renew (int argc, char **argv, OtpAlgorithm *alg)
 {
diff --git a/appl/popper/pop_parse.c b/appl/popper/pop_parse.c
index 603637f48..6bcccb554 100644
--- a/appl/popper/pop_parse.c
+++ b/appl/popper/pop_parse.c
@@ -47,7 +47,7 @@ pop_parse(POP *p, char *buf)
     if (i == 0) return (-1);
 
     /*  Convert the first token (POP command) to lower case */
-    pop_lower(p->pop_command);
+    strlwr(p->pop_command);
 
     /*  Return the number of tokens extracted minus the command itself */
     return (i-1);
diff --git a/appl/popper/pop_xtnd.c b/appl/popper/pop_xtnd.c
index dc4ab863e..3b45d71a0 100644
--- a/appl/popper/pop_xtnd.c
+++ b/appl/popper/pop_xtnd.c
@@ -17,7 +17,7 @@ pop_xtnd (POP *p)
     xtnd_table  *   x;
 
     /*  Convert the XTND subcommand to lower case */
-    pop_lower(p->pop_subcommand);
+    strlwr(p->pop_subcommand);
 
     /*  Search for the subcommand in the XTND command table */
     if ((x = pop_get_subcommand(p)) == NULL) return(POP_FAILURE);