Following that repair, the sample implementation of SRFI 148
is mostly working, but I am still getting an error for the
"em-free-identifier=?: false" test because

(letrec-syntax
  ((m
    (syntax-rules ()
     ((m a)
      (em (em-quote
           (em-if (em-free-identifier=? 'a 'm) 'true 'false)))))))
  (m c))

is expanding into code that contains something Larceny's macro
expander prints as

(scheme-syntax-rules
  :::2
  (c :continuation)
  ((_ (:continuation c :::2) c %%kt %%kf)
   (c :::2 %%kt))
  ((_ (:continuation c :::2) x %%kt %%kf)
   (c :::2 %%kf))
  ((test c %%kt %%kf) %%kt)
  ((test x %%kt %%kf) %%kf))

That code has been de-mangled for readability, so I can't tell
for sure whether the "c" in the literals is the same identifier
as the "c" that occurs in patterns and templates, but I think
something is wrong here either way, unless the first "c" in the
pattern for the first rule is a pattern variable but the second
"c" in that pattern is a literal.