--- ./lib/dumpvar.pl-pre	Wed Sep 10 23:31:38 2003
+++ ./lib/dumpvar.pl	Thu Sep 18 15:21:16 2003
@@ -30,6 +30,7 @@ sub main::dumpValue {
   local $^W=0;
   (print "undef\n"), return unless defined $_[0];
   (print &stringify($_[0]), "\n"), return unless ref $_[0];
+  push @_, -1 if @_ == 1;
   dumpvar::unwrap($_[0],0, $_[1]);
 }
 
