@@ -446,11 +446,12 @@
 (define (db:patt->like fieldname pattstr #!key (comparator " OR "))
   (let ((patts (if (string? pattstr)
 		   (string-split pattstr ",")
 		   '("%"))))
     (string-intersperse (map (lambda (patt)
-			       (conc fieldname " LIKE '" patt "'"))
+			       (let ((wildtype (if (substring-index "%" patt) "LIKE" "GLOB")))
+				 (conc fieldname " " wildtype " '" patt "'")))
 			     (if (null? patts)
 				 '("")
 				 patts))
 			comparator)))