- "SELECT source FROM %s WHERE source LIKE '%s#xpointer%%'" name_tbl
- (HSql.escape (UriManager.string_of_uri uri))
+ ("SELECT source FROM %s WHERE source LIKE '%s#xpointer%%' "
+ ^^ HSql.escape_string_for_like)
+ name_tbl (escape (UriManager.string_of_uri uri))