diff --git a/storage/dell/TL2000/mode/globalstatus.pm b/storage/dell/TL2000/mode/globalstatus.pm
index c9fdcaa71..5c055f623 100644
--- a/storage/dell/TL2000/mode/globalstatus.pm
+++ b/storage/dell/TL2000/mode/globalstatus.pm
@@ -48,18 +48,18 @@ sub new {
     return $self;
 }
 
-sub check_treshold_overload {
+sub check_threshold_overload {
     my ($self, %options) = @_;
     
     $self->{overload_th} = {};
     foreach my $val (@{$self->{option_results}->{threshold_overload}}) {
         if ($val !~ /(.*?)=(.*)/) {
-            $self->{output}->add_option_msg(short_msg => "Wrong treshold-overload option '" . $val . "'.");
+            $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload option '" . $val . "'.");
             $self->{output}->option_exit();
         }
         my ($filter, $threshold) = ($1, $2);
         if ($self->{output}->is_litteral_status(status => $threshold) == 0) {
-            $self->{output}->add_option_msg(short_msg => "Wrong treshold-overload status '" . $val . "'.");
+            $self->{output}->add_option_msg(short_msg => "Wrong threshold-overload status '" . $val . "'.");
             $self->{output}->option_exit();
         }
         $self->{overload_th}->{$filter} = $threshold;
@@ -69,7 +69,7 @@ sub check_treshold_overload {
 sub check_options {
     my ($self, %options) = @_;
     $self->SUPER::init(%options);
-    $self->check_treshold_overload();
+    $self->check_threshold_overload();
 }
 
 sub get_severity {
@@ -118,4 +118,4 @@ Example: --threshold-overload='(unknown|non critical)=critical'
 =back
 
 =cut
-    
\ No newline at end of file
+