diff --git a/lib/Directory/Queue/Simple.pm b/lib/Directory/Queue/Simple.pm
index 2f3545f..874d2ec 100644
--- a/lib/Directory/Queue/Simple.pm
+++ b/lib/Directory/Queue/Simple.pm
@@ -304,7 +304,7 @@ sub purge : method {
 
     # check options
     $option{maxtemp} = $self->{maxtemp} unless defined($option{maxtemp});
-    $option{maxlock} = $self->{maxtemp} unless defined($option{maxlock});
+    $option{maxlock} = $self->{maxlock} unless defined($option{maxlock});
     foreach my $name (keys(%option)) {
         dief("unexpected option: %s", $name)
             unless $name =~ /^(maxtemp|maxlock)$/;