diff --git a/IP.pm b/IP.pm
index 759de67..de87e11 100644
--- a/IP.pm
+++ b/IP.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: IP.pm,v 1.2 2002/10/31 04:30:22 lem Exp $
+# $Id: IP.pm,v 1.4 2002/10/31 13:48:04 lem Exp $
 
 package NetAddr::IP;
 
@@ -45,7 +45,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '3.12';
+our $VERSION = '3.13';
 
 				#############################################
 				# These are the overload methods, placed here
@@ -577,7 +577,7 @@
     }
     elsif (!$present and length($ip) == 4) {
 
-	my @o = unpack("c4", $ip);
+	my @o = unpack("C4", $ip);
 
 	vec($addr, $_, 8) = $o[$_] for 0 .. 3;
 	vec($mask, 0, 32) = 0xFFFFFFFF;
@@ -791,7 +791,7 @@
 
 sub aton {
     my $self = shift;
-    return pack "c4", split /\./, $self->addr;
+    return pack "C4", split /\./, $self->addr;
 }
 
 =pod
@@ -1221,7 +1221,7 @@
 
 =head1 HISTORY
 
-$Id: IP.pm,v 1.2 2002/10/31 04:30:22 lem Exp $
+$Id: IP.pm,v 1.4 2002/10/31 13:48:04 lem Exp $
 
 =over
 
@@ -1664,6 +1664,17 @@
 
 =back
 
+=item 3.13
+
+=over
+
+=item *
+
+Fixes a warning related to 'wrapping', introduced in 3.12 in
+C<pack()>/C<unpack()> for the new support for C<-E<gt>aton()>.
+
+=back
+
 =back
 
 =head1 AUTHOR
diff --git a/t/v4-aton.t b/t/v4-aton.t
index d48c065..f32cc95 100644
--- a/t/v4-aton.t
+++ b/t/v4-aton.t
@@ -1,12 +1,13 @@
-use Test::More tests => 12;
+use Test::More tests => 15;
 use Socket;
 use NetAddr::IP;
 
-# $Id$
+# $Id: v4-aton.t,v 1.2 2002/10/31 13:45:29 lem Exp $
 
 my @addr = (
 	[ 'localhost', '127.0.0.1' ],
 	[ 'broadcast', '255.255.255.255' ],
+	[ '254.254.0.1', '254.254.0.1' ],
 	[ 'default', '0.0.0.0' ],
 	[ '10.0.0.1', '10.0.0.1' ],