Ticket #204: example.bug

LIB"bug.lib";
int i =1;
proc callobj(def obj) {return(obj);}
;
example callbug;     
listvar();        // local objects from example part no longer exist
;
ring R=0,x,dp;
example callbug;
listvar();         // local objects from example part no longer exist
;
callobj(x);
example callbug;
listvar();          // local objects from example part still exist
;