--- org-orig.el	2014-01-29 11:43:43.000000000 +0100
+++ org.el	2014-01-29 11:39:37.000000000 +0100
@@ -9411,7 +9411,7 @@
 		       (funcall (intern
 				 (completing-read
 				  "Which function for creating the link? "
-				  sfunsn t (car sfunsn)))))
+				  sfunsn nil t (car sfunsn)))))
 		  (funcall (caar sfuns)))
 	      (setq link (plist-get org-store-link-plist :link)
 		    desc (or (plist-get org-store-link-plist