let sql_pat = sqlpat_of_shellglob pat in
let query =
sprintf
- ("SELECT source FROM %s WHERE value LIKE \"%s\" ESCAPE \"\\\" "
- ^^ "UNION " ^^
- "SELECT source FROM %s WHERE value LIKE \"%s\" ESCAPE \"\\\" ")
+ ("SELECT source FROM %s WHERE value LIKE \"%s\" "
+ ^^ HSql.escape_string_for_like
+ ^^ " UNION " ^^
+ "SELECT source FROM %s WHERE value LIKE \"%s\" "
+ ^^ HSql.escape_string_for_like)
(MetadataTypes.name_tbl ()) (escape sql_pat)
MetadataTypes.library_name_tbl (escape sql_pat)
in