--- org.el	2013-05-07 21:04:42.230265766 +0200
+++ org.new.el	2013-05-07 21:04:11.374459978 +0200
@@ -9389,10 +9389,9 @@
 				 (completing-read
 				  "Which function for creating the link? "
 				  sfunsn t (car sfunsn)))))
-		  (funcall (caar sfuns)))
 	      (setq link (plist-get org-store-link-plist :link)
 		    desc (or (plist-get org-store-link-plist
-					:description) link))))
+					:description) link)))))
 
 	;; Store a link from a source code buffer
 	((org-src-edit-buffer-p)