--- ext/B/B.pm~	Sun Jul 25 23:52:41 1999
+++ ext/B/B.pm	Tue Aug  3 11:53:58 1999
@@ -113,6 +113,10 @@
     $symtable{sprintf("sym_%x", $$obj)} = $value;
 }
 
+sub clearsym {
+    %symtable = ();
+}
+
 sub objsym {
     my $obj = shift;
     return $symtable{sprintf("sym_%x", $$obj)};
--- ext/B/B/Terse.pm~	Tue Jul 20 10:17:54 1999
+++ ext/B/B/Terse.pm	Tue Aug  3 11:55:34 1999
@@ -17,6 +17,7 @@
 sub compile {
     my $order = shift;
     my @options = @_;
+    B::clearsym();
     if (@options) {
 	return sub {
 	    my $objname;
--- ext/B/B/Bblock.pm~	Sun Jul 25 23:55:09 1999
+++ ext/B/B/Bblock.pm	Tue Aug  3 11:55:52 1999
@@ -129,6 +129,7 @@
 
 sub compile {
     my @options = @_;
+    B::clearsym();
     if (@options) {
 	return sub {
 	    my $objname;
--- ext/B/B/Debug.pm~	Tue Jul 20 10:17:54 1999
+++ ext/B/B/Debug.pm	Tue Aug  3 11:56:13 1999
@@ -247,6 +247,7 @@
 
 sub compile {
     my $order = shift;
+    B::clearsym();
     if ($order eq "exec") {
         return sub { walkoptree_exec(main_start, "debug") }
     } else {