--- a/components/array.m	2011-02-28 21:34:29.000000000 +0000
+++ b/components/array.m	2013-09-24 13:26:57.000000000 +0000
@@ -152,6 +152,7 @@
 
           '*'        =>
           sub : method {
+	    my $z = \@_;   # work around stack problems
             my $want = wantarray;
             print STDERR "W: ", $want, ':', join(',',@_),"\n"
               if DEBUG;
--- a/components/hash.m	2011-02-28 21:34:29.000000000 +0000
+++ b/components/hash.m	2013-09-24 13:27:02.000000000 +0000
@@ -156,6 +156,7 @@
 
           '*'        =>
           sub : method {
+	    my $z = \@_;   # work around stack problems
             my $want = wantarray;
             print STDERR "W: ", $want, ':', join(',',@_),"\n"
               if DEBUG;
--- a/components/scalar.m	2011-04-16 14:57:01.000000000 +0000
+++ b/components/scalar.m	2013-09-24 13:27:13.000000000 +0000
@@ -167,6 +167,7 @@
 =cut
 
     ( '*'        => sub : method {
+		      my $z = \@_;   # work around stack problems
                       if ( @_ == 1 ) {
                         %%V1COMPAT_ON%%
                         if ( $v1object and ! exists $_[0]->{$name} ) {