diff --git a/scripts/ZoneMinder/lib/ZoneMinder/Event.pm b/scripts/ZoneMinder/lib/ZoneMinder/Event.pm
index 134cfa794..c01294f8c 100644
--- a/scripts/ZoneMinder/lib/ZoneMinder/Event.pm
+++ b/scripts/ZoneMinder/lib/ZoneMinder/Event.pm
@@ -483,7 +483,9 @@ sub MoveTo {
     $$self{Storage} = $NewStorage;
     $error .= $self->save();
   }
-  $self->delete_files( $OldStorage );
+  if ( ! $error ) {
+    $self->delete_files( $OldStorage );
+  }
   return $error;
 } # end sub MoveTo