--- AnyEvent/lib/AnyEvent/Handle.pm	2008/06/06 11:01:17	1.64
+++ AnyEvent/lib/AnyEvent/Handle.pm	2008/06/06 11:05:16	1.65
@@ -502,7 +502,7 @@
 register_write_type packstring => sub {
    my ($self, $format, $string) = @_;
 
-   pack "$format/a", $string
+   pack "$format/a*", $string
 };
 
 =item json => $array_or_hashref
@@ -558,7 +558,7 @@
 
    require Storable;
 
-   pack "w/a", Storable::nfreeze ($ref)
+   pack "w/a*", Storable::nfreeze ($ref)
 };
 
 =back