Update TAG for brmember.

src/brmember.scm

@@ -85,7 +85,8 @@
 	 configuration
 	 primes
 	 util-list
-	 bank-account)
+	 bank-account
+	 util-tag)
 
  ;; Checks whether given string is a 4-digit decimal number.
  (define (is-4digit-string? s)
@@ -119,7 +120,8 @@
 			       (symbol->string
 				(get-4digit-symbol-from-list (cons file-name symlinks))))))))
      (if (null? args)
-	 (make-ldict pairs)
+	 (make-ldict (cons (cons 'TAG (make-tag BRMEMBER))
+			   pairs))
 	 (if (not (keyword? (car args)))
 	     (error 'make-brmember "Optional arguments must be keywords" (car args))
 	     (if (null? (cdr args))