diff --git a/src/frontend/device.c b/src/frontend/device.c
index 37c806b6f..809d9f24a 100644
--- a/src/frontend/device.c
+++ b/src/frontend/device.c
@@ -1332,7 +1332,7 @@ devexpand(char *name)
     if (strchr(name, '*') || strchr(name, '[') || strchr(name, '?')) {
         devices = cp_cctowl(ft_curckt->ci_devices);
         for (wl = NULL; devices; devices = devices->wl_next)
-            if (cp_globmatch(name, devices->wl_word))
+            if (!strcmp(name, devices->wl_word))
                 wl = wl_cons(devices->wl_word, wl);
     } else if (cieq(name, "all")) {
         wl = cp_cctowl(ft_curckt->ci_devices);
diff --git a/src/frontend/parser/glob.c b/src/frontend/parser/glob.c
index 469af46ee..caddc6784 100644
--- a/src/frontend/parser/glob.c
+++ b/src/frontend/parser/glob.c
@@ -407,18 +407,6 @@ char *cp_tildexpand(const char *string)
 } /* end of function cp_tildexpand */
 
 
-
-/* Say whether the pattern p can match the string s. */
-
-/* MW. Now simply compare strings */
-
-bool cp_globmatch(char *p, char *s)
-{
-    return !(strcmp(p, s));
-} /* end of function cp_globmatch */
-
-
-
 /* This function expands the leading ~ of wl_node. */
 static void tilde_expand_word(wordlist *wl_node)
 {