diff --git a/README b/README
index 7608c4d125c13a65b8c6a0bcc7734b377afdf137..585eef996fa3058bd287e37bc2bb7df903921ffa 100644
--- a/README
+++ b/README
@@ -29,7 +29,7 @@ Example use of inferior-shell, from the rpm system:
           ,@(unless (eq packagenames t)
               `((egrep ("^(" ,@(loop :for (name . more) :on packagenames
                                  :collect name :when more :collect "|")
-                             ")-[^-]+-[^-]+$")))))
+                             ")-[^-]+(-[^-]+)?$")))))
    :host host))
 
 ==== Exported Functionality ====