--- orig/output-svg.scm	2016-02-13 15:12:35.480040574 +0000
+++ scm/output-svg.scm	2016-02-13 15:14:39.460041579 +0000
@@ -627,8 +627,9 @@
   (fontify font (entity 'tspan (string->entities string))))
 
 (define (url-link url x y)
-  (string-append
-   (eo 'a `(xlink:href . ,url))
+  (define esc-url (ly:string-substitute "\"" """ url))
+  (string-append 
+   (eo 'a `(xlink:href . ,esc-url))
    (eoc 'rect
         `(x . ,(car x))
         `(y . ,(car y))