@@ -294,11 +294,11 @@
 
 ;; make a query (fieldname like 'patt1' OR fieldname 
 (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 "'"))
 			     (if (null? patts)
 				 '("")
 				 patts))