$self = { NAME    => $name,
	      HEAD    => $TREE->HEAD,
	      RCSDIR  => $TREE->RCSDIR,
	      ETCDIR  => $TREE->ETCDIR,
	      LOGOBJ  => $logfile,
	      FILE    => $file,
	      SEC     => $param{sec},
	      LIB     => $param{lib},
	      VFILE   => $TREE }; # This is the object of interest