diff --git a/markdown-printer.lisp b/markdown-printer.lisp
index d71e949..fcfba18 100644
--- a/markdown-printer.lisp
+++ b/markdown-printer.lisp
@@ -118,7 +118,8 @@
 
 (defmethod print-md-tagged-element ((tag (eql :link)) stream rest)
   (format stream "<")
-  (dolist (a rest) (print-md-element a stream))
+  (let ((*md-inline-chars-to-escape* ""))
+    (dolist (a rest) (print-md-element a stream)))
   (format stream ">"))
 
 (defmethod print-md-tagged-element ((tag (eql :mailto)) stream rest)
diff --git a/tests/printing/inline.lisp b/tests/printing/inline.lisp
index b584185..5bd2a6e 100644
--- a/tests/printing/inline.lisp
+++ b/tests/printing/inline.lisp
@@ -158,3 +158,8 @@
 "
   :expected "\\inlinelatexormathjax{arg}
 ")
+
+(def-print-test do-not-escape-md-chars-in-urls
+  :format :markdown
+  :text "<http://a/?forum_id=*_`&[]>"
+  :expected "<http://a/?forum_id=*_`&[]>")