diff --git a/src/members-print.scm b/src/members-print.scm
index 76a28f6..764216c 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -135,7 +135,15 @@
 		     sikeys))
 	  (mailman (list (list "Mailing Lists"
 			       (string-intersperse (brmember-mailman mr) "\n"))))
-	  (result (filter identity (append head body mailman))))
+	  (dokuwiki (if (ldict-contains? mr 'dokuwiki)
+			(list (list "DokuWiki"
+				    (format "Groups: ~A\nEmail: ~A"
+					    (brmember-sub-ref mr 'dokuwiki 'groups)
+					    (brmember-sub-ref mr 'dokuwiki 'email)
+					    )))
+			(list (list (ansi-string #:red "DokuWiki")
+				    (ansi-string #:red "---")))))
+	  (result (filter identity (append head body mailman dokuwiki))))
      ;;(write result)(newline)
      (table->string result
 		    #:border '(((#:bottom #:right light) ... (#:bottom light))
@@ -154,12 +162,14 @@
 	   )
      #:border '(((#:bottom #:right light) ... (#:bottom light))
 		((#:right light) ... none)
-		...)))
+		...
+		)))
    (let* ((balance (member-balance mr))
 	  (fees (ldict-ref balance 'fees))
 	  (credit (ldict-ref balance 'credit))
 	  (payment (ldict-ref balance 'payment))
 	  (total (- (+ credit payment) fees)))
+     (newline)
      (print "Total fees: " fees)
      (print "Total credit: " credit)
      (print "Total payments: " payment)