Fix ditaa.jar path

The default path had become wrong after we moved org-exp-blocks to the
core, because it was defined relative to the location of the Lisp file.

lisp/ChangeLog

@@ -1,5 +1,7 @@
 2009-06-19  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-exp-blocks.el (org-ditaa-jar-path): Fix default ditaa path.
+
 	* org-exp.el (org-infile-export-plist): Get macros also from
 	#+SETUPFILE.
 

lisp/org-exp-blocks.el

@@ -217,14 +217,14 @@ specified in BLOCKS which default to the value of
 ;;--------------------------------------------------------------------------------
 ;; ditaa: create images from ASCII art using the ditaa utility
 (defvar org-ditaa-jar-path (expand-file-name
-			"ditaa.jar"
-			(file-name-as-directory
-			 (expand-file-name
-			  "scripts"
-			  (file-name-as-directory
-			   (expand-file-name
-			    ".."
-			    (file-name-directory (or load-file-name buffer-file-name)))))))
+			    "ditaa.jar"
+			    (file-name-as-directory
+			     (expand-file-name
+			      "scripts"
+			      (file-name-as-directory
+			       (expand-file-name
+				"../contrib"
+				(file-name-directory (or load-file-name buffer-file-name)))))))
   "Path to the ditaa jar executable")
 
 (defun org-export-blocks-format-ditaa (body &rest headers)