--- lib/RDF/Simple/Parser.pm	 2004-01-24 00:55:50.000000000 -0800
+++ lib/RDF/Simple/Parser.pm.new 2004-01-28 15:48:08.000000000 -0800
@@ -28,6 +28,7 @@
     };
     warn ($@) if $@;
     if ($rdf) {
+	$self->base($uri);
     	return $self->parse_rdf($rdf);
     }
     return undef;
@@ -144,9 +145,7 @@
 #            return $l;
 #        }
 #    }
-    my $g = $self->genID;
-    $self->genID($g+1);
-    return '_:id'.$g;
+    return sprintf("_:id%08x%04x", time, int rand 0xFFFF);
 }
 
 sub literal {