diff --git a/lisp/org-babel.el b/lisp/org-babel.el
index 8b3572909..7524eb970 100644
--- a/lisp/org-babel.el
+++ b/lisp/org-babel.el
@@ -388,7 +388,7 @@ relies on `org-babel-insert-result'."
 RESULT, and the display being the `file-name-nondirectory' if
 non-nil."
   (let ((name (file-name-nondirectory result)))
-    (concat "[[" result (if name (concat "][" name "]]") "]]"))))
+    (concat "[[file:" result (if name (concat "][" name "]]") "]]"))))
 
 (defun org-babel-examplize-region (beg end)
   "Comment out region using the ': ' org example quote."
diff --git a/org-babel.org b/org-babel.org
index ea210388c..01b6631bc 100644
--- a/org-babel.org
+++ b/org-babel.org
@@ -1961,7 +1961,7 @@ This could probably be added to [[file:lisp/org-babel-script.el][org-babel-scrip
 (see [[* file result types][file result types]])
 
 #+srcname: implementing-ditaa
-#+begin_src ditaa :results file :file blue.png
+#+begin_src ditaa :results replace file :file blue.png
 +---------+
 | cBLU    |
 |         |
@@ -1972,7 +1972,7 @@ This could probably be added to [[file:lisp/org-babel-script.el][org-babel-scrip
 #+end_src
 
 #+resname: implementing-ditaa
-[[blue.png][blue.png]]
+[[file:blue.png][blue.png]]
 
 *** TODO dot
 (see [[* file result types][file result types]])