diff --git a/IP.pm b/IP.pm
index 3fa8cf9..f7fdc75 100644
--- a/IP.pm
+++ b/IP.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: IP.pm,v 1.13 2003/10/09 00:12:21 lem Exp $
+# $Id: IP.pm,v 1.14 2003/10/10 17:51:17 lem Exp $
 
 package NetAddr::IP;
 
@@ -48,7 +48,7 @@
 
 our @ISA = qw(Exporter);
 
-our $VERSION = '3.15';
+our $VERSION = '3.16';
 
 				#############################################
 				# These are the overload methods, placed here
@@ -1351,6 +1351,7 @@
 instead.
 
 Note that C<$me> must be a C<NetAddr::IP> object.
+
 =cut
 
 sub compactref ($) {
@@ -1492,7 +1493,7 @@
 
 =head1 HISTORY
 
-$Id: IP.pm,v 1.13 2003/10/09 00:12:21 lem Exp $
+$Id: IP.pm,v 1.14 2003/10/10 17:51:17 lem Exp $
 
 =over
 
@@ -2036,6 +2037,12 @@
 
 Note that IPv6 might not be as solid as I would like. Be careful...
 
+=item 3.16
+
+Fixed a couple of (minor) bugs in shipped tests in the last
+version. Also, fixed a small pod typo that caused code to show up in
+the documentation.
+
 =back
 
 =head1 AUTHOR
diff --git a/t/v6-base.t b/t/v6-base.t
index 99a7dc2..88ac309 100644
--- a/t/v6-base.t
+++ b/t/v6-base.t
@@ -1,6 +1,6 @@
 # This -*- perl -*- code excercises the basic v6 functionality
 
-# $Id: v6-base.t,v 1.7 2003/10/09 00:14:06 lem Exp $
+# $Id: v6-base.t,v 1.9 2003/10/10 18:46:53 lem Exp $
 
 our @addr = 
     (
@@ -38,14 +38,10 @@
 	is($ip->nth($a->[1]), $a->[2]);
 }
 
-$test = new NetAddr::IP f34::1;
+$test = new NetAddr::IP 'f34::1';
 isa_ok($test, 'NetAddr::IP');
 ok($ip->network->contains($test), "->contains");
 
-$test = new NetAddr::IP f35::1/40;
+$test = new NetAddr::IP 'f35::1/40';
 isa_ok($test, 'NetAddr::IP');
-ok(!$ip->network->contains($test), "!->contains");
-
-
-
-
+ok($ip->network->contains($test), "->contains");
diff --git a/t/v6-split-bulk.t b/t/v6-split-bulk.t
index bc09a0d..72e298b 100644
--- a/t/v6-split-bulk.t
+++ b/t/v6-split-bulk.t
@@ -1,7 +1,7 @@
 use Test::More;
 use NetAddr::IP;
 
-# $Id: v6-split-bulk.t,v 1.2 2003/10/09 00:14:06 lem Exp $
+# $Id: v6-split-bulk.t,v 1.3 2003/10/10 17:51:32 lem Exp $
 
 my @addr = ( 
 	     [ 'dead:beef::1', 126, 127, 2 ],
@@ -14,15 +14,8 @@
 
 plan tests => (scalar @addr);
 
-SKIP: {
-
-    skip "NetAddr::IP cannot properly split() v6 addresses yet...",
-    scalar @addr unless $ENV{V6DEBUG};
-
-    for my $a (@addr) {
-	my $ip = new NetAddr::IP $a->[0], $a->[1];
-	my $r = $ip->splitref($a->[2]);
-#	diag "$_\n" for @$r;
-	is(@$r, $a->[3]);
-    }
-};
+for my $a (@addr) {
+    my $ip = new NetAddr::IP $a->[0], $a->[1];
+    my $r = $ip->splitref($a->[2]);
+    is(@$r, $a->[3]);
+}