anchor.diff:               (< 1 (length nouveau-repertoire)))
       (unless (char= #\/ (aref nouveau-repertoire (1- (length nouveau-repertoire))))
         (setf nouveau-repertoire (concatenate 'string nouveau-repertoire "/")))
  -    (setf *current-directory*
  -          (truename (make-pathname
  -                     :name nil :type nil :version nil
  -                     :defaults (if (char= #\/ (aref nouveau-repertoire 0))
  -                                   (merge-pathnames (concatenate 'string "." nouveau-repertoire) *lse-root*)
  -                                   (merge-pathnames nouveau-repertoire *current-directory*))))))
  +    (setf *current-directory* (change-directory *lse-root*  *current-directory*  nouveau-repertoire)))
     (task-close-all-files *task*))
   
   
  
positive.code: 
  
  (defcommand "ETAGERE DE RUBANS" awake  une-ligne (chemin) 
    "Selectionne une étagère de rubans perforés."
    "Les rubans perforés sont simulés par des fichiers.  Ils sont
  conservés sur des \"étagère\", c'est à dire, enregistrés dans des répertoires.
  
  Cette commande permet de sélectionner le répertoire où les rubans
  
negative.code: 
  Voir les commandes CHANGER REPERTOIRE, TABLE DES FICHIER, UTILISATION DISQUE."
    (io-new-line *task*)
    (io-format *task* "REPERTOIRE COURANT: ~A~%"
               (clip-directory *lse-root* *current-directory*)))
  
  
  (defcommand "CHANGER REPERTOIRE" awake une-ligne (nouveau-repertoire)
  