diff --git a/C4/Creators/Lib.pm b/C4/Creators/Lib.pm
index c15b3e7b3a..eb97bc1156 100644
--- a/C4/Creators/Lib.pm
+++ b/C4/Creators/Lib.pm
@@ -151,7 +151,7 @@ sub _build_query {
         $query .= ' WHERE 1 ';
         while ( my ( $field, $values ) = each %{ $params->{filters} } ) {
             if ( ref( $values ) ) {
-                $query .= " AND $field IN ( " . ( ('?') x scalar( @$values ) ) . " ) ";
+                $query .= " AND $field IN ( " . ( ('?,') x (@$values-1) ) . "? ) "; # a comma separates elements in a list...
                 push @where_args, @$values;
             } else {
                 $query .= " AND $field = ? ";