 	      (message "Err: Unable to lock file"))))
       (:unlock
        (cond ((string-equal status "LOCKED-BY-YOURSELF")
-	      (fi:eval-in-lisp (format "(jvs::unlock-file-by-name \"%s\")" script-name))
+	      (fi:eval-in-lisp (format "(let ((archive::*current-user* \"%s\")) (jvs::unlock-file-by-name \"%s\"))" user script-name))
 	      (message "File unlocked"))
 	     ((string-equal status "NOT-LOCKED")
 	      (message "File already unlocked"))

	      (message "File locked by %s" status))
	     (t
	      (message "Err: Unable to lock file")))))))
	      

(defun lock-file()
  (interactive)

;;;; (:require-patch "")
;;;; HISTORY :
;;;; $Log$
;;;; Revision 3.20  2015/07/20 16:41:40  mgautier
;;;; - lock file with the user using emacs
;;;;
;;;; Revision 3.19  2015/06/29 08:17:24  mgautier
;;;; - remove useless message
;;;;
