IF ISASSIGNED(autolib)
  THEN
  ajoriginal_lib=autolib
ENDIF

autolib="GetDir"
GetDir()

IF ISASSIGNED(ajoriginal_lib)
  THEN
  autolib=ajoriginal_lib
ENDIF