diff --git a/scsh/rx/packages.scm b/scsh/rx/packages.scm
index 9059149..d914424 100644
--- a/scsh/rx/packages.scm
+++ b/scsh/rx/packages.scm
@@ -150,12 +150,12 @@
 			      &opt (proc (:exact-integer :value) :value)
 			      :exact-integer)
 		      :value))
-   (regexp-fold (proc (:value (proc (:value :exact-integer :value) :value)
-			      :value
-			      :string
-			      &opt (proc (:exact-integer :value) :value)
-			      :exact-integer)
-		      :value))
+   (regexp-fold-right (proc (:value (proc (:value :exact-integer :value) :value)
+				    :value
+				    :string
+				    &opt (proc (:exact-integer :value) :value)
+				    :exact-integer)
+			    :value))
    (regexp-for-each (proc (:value (proc (:value) :unspecific)
 				  :string &opt :exact-integer)
 			  :unspecific))))