Fix mistakenly adding “./” when uri->string’ing

This is due to weird/mistakenly input URLs…
like Matrix ones, which uri-common doesn’t like.
¯\_(ツ)_/¯

vcarded.scm

@@ -69,6 +69,7 @@
     (uri:uri-reference string))
 
 
+
   ;; Parse a data URI’s contents into a list containing the mimetype (string)
   ;; and bytevector contents (u8vector).
   ;;    "data:text/plain;base64,ZGFk" → ("text/plain;base64" #u8(100 97 100))
@@ -123,7 +124,10 @@
   ;; string-form… as best we can.
   (define (serialize-uri-prop-value value)
     (cond [(uri:uri? value)
-           (uri:uri->string value)]
+           (irregex-replace
+            ":./"
+            (uri:uri->string value)
+            ":")] ;; Some URIs have “./” mistakenly prepended.
           [(list? value)
            (bytevector->data-uri-str (car value) (cadr value))]
           [(string? value)