diff --git a/lib/Net/UCP.pm b/lib/Net/UCP.pm
index 1de258e..345dae5 100644
--- a/lib/Net/UCP.pm
+++ b/lib/Net/UCP.pm
@@ -515,7 +515,7 @@ sub parse_message {
  
     my $ref_mess = undef;
     
-    if (my($optype) = $resp =~ m{^\d{2}/\d{5}/.*?/(01|02|03|30|51|52|53|54|55|56|57|58|60|61)/.*}) {
+    if (my($optype) = $resp =~ m{^\d{2}/\d{5}/.*?/(01|02|03|30|31|51|52|53|54|55|56|57|58|60|61)/.*}) {
 	my $parse_method = "parse_$optype";
 	$ref_mess = $self->$parse_method($resp);
     }