diff --git a/src/DB/Flatfile.pm b/src/DB/Flatfile.pm
index bdf2eee..d57b583 100644
--- a/src/DB/Flatfile.pm
+++ b/src/DB/Flatfile.pm
@@ -120,10 +120,10 @@ sub mwrite
 # Delete from database.
 sub mdelete
 {
-	my ($name) = @_;
+	my ($name, $i) = @_;
 	
-	if (defined $MEM{$name}) {
-		delete $MEM{$name};
+	if (defined $MEM{$name}[$i]) {
+		delete $MEM{$name}[$i];
 	}
 	
 	return 1;