71,72d70
< (use format)
< 
143c141
<                             (format #f "~A = '~A'" (car subspec)
---
>                             (sprintf "~A = '~A'" (car subspec)
183c181
<                   (format #f "PQsendQuery: ~A"
---
>                   (sprintf "PQsendQuery: ~A"
196c194
<                      (format #f "PQconsumeInput: ~A"
---
>                      (sprintf "PQconsumeInput: ~A"
221c219
<                         (format #f "PQgetResult: ~A" msg)
---
>                         (sprintf "PQgetResult: ~A" msg)