diff --git a/Changes b/Changes
index 8100d87..704d463 100644
--- a/Changes
+++ b/Changes
@@ -60,3 +60,8 @@
 	- Some changes suggested by Jeroen Ruigrok and Anton Berezin were
 	included. Thanks guys!
 
+2.23  Tue Aug 14 2001
+	- Bug fix for /XXX.XXX.XXX.XXX netmasks under v5.6.1 suggested 
+	by Tim Wuyts. Thanks!
+	- Tested the module under MACHTYPE=hppa1.0-hp-hpux11.00
+
diff --git a/IP.pm b/IP.pm
index a5dbe13..a5dcc38 100644
--- a/IP.pm
+++ b/IP.pm
@@ -28,7 +28,7 @@
 	
 );
 
-$VERSION = '2.22';
+$VERSION = '2.23';
 
 
 # Preloaded methods go here.
@@ -158,11 +158,11 @@
 }
 
 sub new {
-    my $type = shift;
-    my $class = ref($type) || $type || "NetAddr::IP";
-    my $ip = shift;
-    my $mask = shift;
-    my $bits = shift;
+    my $type	= shift;
+    my $class	= ref($type) || $type || "NetAddr::IP";
+    my $ip	= shift;
+    my $mask	= shift;
+    my $bits	= shift;
     
     if (defined $bits and length $bits) {
 	my $min = $ip;
@@ -175,7 +175,7 @@
 #	croak "inconsistent mask. Use only one form of netmask"
 	return undef if defined $mask;
 	my $m = $1;
-	$ip =~ s/\/\d+$//;
+	$ip =~ s/\/[\d\.]+$//;
 	$mask = $m;
     }
     $mask = "32" unless defined $mask; # Assume a host mask if none is given