diff --git a/lib/WebGUI/Wobject/FileManager.pm b/lib/WebGUI/Wobject/FileManager.pm
index cfd6cb2fc..76f3d29ae 100644
--- a/lib/WebGUI/Wobject/FileManager.pm
+++ b/lib/WebGUI/Wobject/FileManager.pm
@@ -82,6 +82,12 @@ sub new {
         bless $self, $class;
 }
 
+#-------------------------------------------------------------------
+sub purge {
+	WebGUI::SQL->write("delete from FileManager_file where wobjectId=".$_[0]->get("wobjectId"));
+        $_[0]->SUPER::purge();
+}
+
 #-------------------------------------------------------------------
 sub uiLevel {
         return 4;