diff --git a/C4/RotatingCollections.pm b/C4/RotatingCollections.pm
index 9980ed92b5..24b77f8b42 100644
--- a/C4/RotatingCollections.pm
+++ b/C4/RotatingCollections.pm
@@ -447,8 +447,8 @@ sub TransferCollection {
     my @results;
     while ( my $item = $sth->fetchrow_hashref ) {
         my ($status) = CheckReserves( $item->{itemnumber} );
-        my @transfers = GetTransfers( $item->{itemnumber} );
-        transferbook( $colBranchcode, $item->{barcode}, my $ignore_reserves = 1 ) unless ( $status eq 'Waiting' || @transfers );
+        my @transfers = C4::Circulation::GetTransfers( $item->{itemnumber} );
+        C4::Circulation::transferbook( $colBranchcode, $item->{barcode}, my $ignore_reserves = 1 ) unless ( $status eq 'Waiting' || @transfers );
     }
 
     return 1;
diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl
index afc7cef0fe..fc29a4b8aa 100755
--- a/rotating_collections/transferCollection.pl
+++ b/rotating_collections/transferCollection.pl
@@ -72,7 +72,8 @@ foreach my $br ( keys %$branches ) {
 @branchoptionloop = sort {$a->{name} cmp $b->{name}} @branchoptionloop;
 
 ## Get data about collection
-my ( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection($colId);
+my ( $colTitle, $colDesc, $colBranchcode );
+( $colId, $colTitle, $colDesc, $colBranchcode ) = GetCollection($colId);
 $template->param(
     colId            => $colId,
     colTitle         => $colTitle,