 the file or the directory at point into the boring file."
   (interactive
    (let ((type (darcsum-get-line-type))
-	 (path (get-text-property (point) 'darcsum-path)))
+	 (path (get-text-property (point) 'darcsum-line-path)))
      (if (string-match "^\\./" path)
 	 (setq path (substring path 2)))
      (setq path (regexp-quote path))
      (cond
       ((eq type 'dir)
-       (setq path (concat "(^|/)" (regexp-quote path) "($|/)")))
+       (setq path (concat "(^|/)" path "($|/)")))
       ((memq type '(file change))
        (setq path (concat "(^|/)" path "$"))))
      (list (read-string "Add to boring list: " path))))

		  process-environment))
         (process-connection-type nil)
         (proc (apply 'start-process "darcs"
                      buf darcsum-program subcommand args)))
      (set-process-sentinel proc 'darcsum-process-sentinel)
      (set-process-filter proc 'darcsum-process-filter)
      (with-current-buffer buf

    (define-key map "U" 'darcsum-revert)
    (define-key map "u" 'darcsum-toggle-context)
    (define-key map "d" 'darcsum-delete)
    (define-key map "r" 'darcsum-remove)
    (define-key map "M" 'darcsum-move)
    (define-key map "m" 'darcsum-toggle-mark)
    (define-key map [button2] 'darcsum-mouse-toggle-mark)
