--- lib/CGI/Persistent.pm.orig	Thu Nov 11 15:07:53 2004
+++ lib/CGI/Persistent.pm	Thu Nov 11 15:07:56 2004
@@ -22,7 +22,7 @@
     my ( $class, $dope, $id ) = @_ ; 
     $dope = "." unless $dope; 
     my $cgi = new CGI; # print $cgi->header ();
-    my $fn  = basename($cgi->param( '.id' ) || $id); 
+    my $fn  = basename($cgi->param( '.id' ) || $id || ''); 
 
     unless ( $fn ) { 
         my $po = new Persistence::Object::Simple ( __Dope => $dope );