diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 97bce45374..cc43f2f3c9 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -2289,7 +2289,8 @@ sub agent_pkgs_sql {
 
 sub _pkgs_sql {
   my( $class, @agentnums ) = @_;
-  my $agentnums = join(',', @agentnums);
+  my $dbh = dbh;
+  my $agentnums = join(',', map { $dbh->quote($_) } @agentnums);
 
   "
     (