two places missing pict-convertible->pict calls

Author: rfindler

redex-pict-lib/redex/private/core-layout.rkt

@@ -902,7 +902,7 @@
          (error 'apply-rewrites "rewritten version of ~s is still ~s" e e))
        (let ([p (cadr m)])
          (if (procedure? p)
-             (p)
+             (pict-convertible->pict (p))
              p)))]
     [else e]))
 

redex-pict-lib/redex/private/pict.rkt

@@ -417,7 +417,7 @@
                 'comma)])
      (if (null? lst)
          (blank)
-         (let ([where ((where-make-prefix-pict))])
+         (let ([where (pict-convertible->pict ((where-make-prefix-pict)))])
            (let ([max-w (- max-w (pict-width where))])
              (htl-append where
                          (let loop ([p (car lst)][lst (cdr lst)])