diff --git a/appl/popper/pop_lower.c b/appl/popper/pop_lower.c
deleted file mode 100644
index e8f2d1823..000000000
--- a/appl/popper/pop_lower.c
+++ /dev/null
@@ -1,21 +0,0 @@
-/*
- * Copyright (c) 1989 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- */
-
-#include <popper.h>
-RCSID("$Id$");
-
-/* 
- *  lower:  Convert a string to lowercase
- */
-
-void
-pop_lower (char *buf)
-{
-    char        *   mp;
-
-    for (mp = buf; *mp; mp++)
-        if (isupper(*mp) && isupper(*mp)) *mp = (char)tolower((int)*mp);
-}