/stockcurrentpath {
   pathdict /the_lastppath currentppathobj put 
   pathdict /the_lastpath currentpathobj put 
} def