--- a/.emacs-my	Sat Jun 25 23:04:25 2011 +0300
+++ b/.emacs-my	Mon Jun 27 21:51:53 2011 +0300
@@ -918,8 +918,8 @@
 ;; XXX (setq org-todo-keywords '("TODO" "START" "DONE")) for org-version 6.05b
 (when (or (featurep 'org) (featurep 'org-install))
   (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
+  (setq org-directory "~/devel/my-devel/gtd")
   (setq
-   org-directory "~/.gtd"
    org-default-notes-file nil
    org-agenda-ndays 31
    org-deadline-warning-days 7
@@ -932,8 +932,8 @@
    org-hide-leading-stars t
    org-tags-column 64
    )
-  (setq my-org-agenda-todo-file "~/.gtd/TODO.org")
-  (setq my-org-agenda-note-file "~/.gtd/NOTE.org")
+  (setq my-org-agenda-todo-file (concat org-directory "/TODO.org"))
+  (setq my-org-agenda-note-file (concat org-directory "/NOTE.org"))
   (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file))
   (define-key global-map "\C-ca" 'org-agenda)
   (define-key global-map "\C-ct" (lambda nil (interactive) (find-file my-org-agenda-note-file)))