From 33640e6e0539ea17af7803d0bd92cd5c437660d8 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 11 Jun 2010 09:19:00 -0700
Subject: [PATCH] Fix a storage clean-up.

---
 t/Asset/AssetExportHtml.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/Asset/AssetExportHtml.t b/t/Asset/AssetExportHtml.t
index 0afff3008..0d2165993 100644
--- a/t/Asset/AssetExportHtml.t
+++ b/t/Asset/AssetExportHtml.t
@@ -290,7 +290,7 @@ is($gcAsPath->absolute($exportPath)->stringify, $litmus->absolute($exportPath)->
 
 # now let's get tricky and test different file extensions
 my $storage = WebGUI::Storage->create($session);
-WebGUI::Test->addToCleanup($storage->getId);
+WebGUI::Test->addToCleanup('WebGUI::Storage' => $storage->getId);
 my $filename = 'somePerlFile_pl.txt';
 $storage->addFileFromScalar($filename, $filename);
 $session->user({userId=>3});