diff --git a/member-file.scm b/member-file.scm index 76244d6..9db92e6 100644 --- a/member-file.scm +++ b/member-file.scm @@ -233,7 +233,10 @@ (define (convert-member-value:card v) (let* ((va (string-split v)) (v0 (car va)) - (vr (substring v (string-length v0)))) + (vr (irregex-replace + (irregex "^ *" 'u) + (substring v (string-length v0)) + ""))) (cons v0 vr))) ;; Converts card ids to cons of two strings.