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