Debug needs an explicit package name for addToCleanup.

t/Asset/Wobject/Calendar.t

@@ -310,7 +310,7 @@ my $coincidentHigh = $windowCal->addChild({
 # Everything above the window should be included in the set of events returned.
 
 $tag2->commit;
-addToCleanup($tag2);
+WebGUI::Test->addToCleanup($tag2);
 
 is(scalar @{ $windowCal->getLineage(['children'])}, 17, 'added events to the window calendar');
 
@@ -556,7 +556,7 @@ my $prevDay = $listCal->addChild({
 
 my $tag6 = WebGUI::VersionTag->getWorking($session);
 $tag6->commit;
-addToCleanup($tag6);
+WebGUI::Test->addToCleanup($tag6);
 
 my $listVars = $listCal->viewList({ start => $bday });
 

t/Asset/Wobject/Collaboration.t

@@ -32,7 +32,7 @@ my $node = WebGUI::Test->asset;
 
 # grab a named version tag
 my $versionTag = WebGUI::VersionTag->getWorking($session);
-addToCleanup($versionTag);
+WebGUI::Test->addToCleanup($versionTag);
 $versionTag->set({name => 'Collaboration => groupToEditPost test'});
 my %tag = ( tagId => $versionTag->getId, status => "pending" );
 
@@ -74,7 +74,7 @@ my $props = {
 my $thread = $collab->addChild($props, @addChildCoda);
 $thread->setSkipNotification;
 $tag1->commit;
-addToCleanup($tag1);
+WebGUI::Test->addToCleanup($tag1);
 
 # Test for a sane object type
 isa_ok($thread, 'WebGUI::Asset::Post::Thread');
@@ -89,7 +89,7 @@ $props = {
 my $thread2 = $collab->addChild($props, @addChildCoda);
 $thread2->setSkipNotification;
 $tag2->commit;
-addToCleanup($tag2);
+WebGUI::Test->addToCleanup($tag2);
 
 my $rssitems = $collab->getRssFeedItems();
 is(scalar @{ $rssitems }, 2, 'rssitems set to number of posts added');

t/Asset/Wobject/Collaboration/templateVariables.t

@@ -110,7 +110,7 @@ foreach my $index (1 .. 5) {
     $newThreads[$index]->setSkipNotification;
 }
 $vt2->commit;
-addToCleanup($vt2);
+WebGUI::Test->addToCleanup($vt2);
 
 $session->user({userId => 3});
 $templateVars = $collab->getViewTemplateVars();

t/Asset/Wobject/Gallery/search.t

@@ -33,7 +33,7 @@ my $versionTag      = WebGUI::VersionTag->getWorking($session);
 
 $versionTag->set( { name=>"Gallery Search Test" } );
 my %tag = ( tagId => $versionTag->getId, status => "pending" );
-addToCleanup( $versionTag );
+WebGUI::Test->addToCleanup( $versionTag );
 
 # Create gallery and a single album
 my $gallery

t/Asset/Wobject/GalleryAlbum/addArchive.t

@@ -25,7 +25,7 @@ my $node            = WebGUI::Asset->getImportNode($session);
 my $versionTag      = WebGUI::VersionTag->getWorking($session);
 my %tag = ( tagId => $versionTag->getId, status => "pending" );
 $versionTag->set({name=>"Add Archive to Album Test"});
-addToCleanup($versionTag);
+WebGUI::Test->addToCleanup($versionTag);
 
 my $gallery
     = $node->addChild({

t/Asset/Wobject/StoryArchive.t

@@ -134,7 +134,7 @@ is($todayFolder->get('styleTemplateId'), $archive->get('styleTemplateId'),  '...
         className => 'WebGUI::Asset::Wobject::StoryArchive',
         title     => 'Extension Tester',
     });
-    addToCleanup($arch2);
+    WebGUI::Test->addToCleanup($arch2);
 
     is $arch2->get('url'),
         $home->get('url').'/extension-tester.ext',