diff --git a/lib/WebGUI/Wobject.pm b/lib/WebGUI/Wobject.pm
index 0eeea4ee2..0ce114ce2 100644
--- a/lib/WebGUI/Wobject.pm
+++ b/lib/WebGUI/Wobject.pm
@@ -745,7 +745,7 @@ NOTE: This method is meant to be extended by all sub-classes.
 =cut
 
 sub purge {
-	my WebGUI::Forum->new($_[0]->get("forumId"));
+	my $forum = WebGUI::Forum->new($_[0]->get("forumId"));
 	$forum->purge;
 	WebGUI::SQL->write("delete from ".$_[0]->get("namespace")." where wobjectId=".$_[0]->get("wobjectId"));
         WebGUI::SQL->write("delete from wobject where wobjectId=".$_[0]->get("wobjectId"));