diff --git a/src/notifications.scm b/src/notifications.scm index be629ba..f2ca996 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -159,7 +159,7 @@ (if (brmember-student? mr) 'student 'normal) - (format "\t~A" (member-total-balance mr)) + (format "\t~A" (+ 0.0 (member-total-balance mr))) (let* ((payments (brmember-payments mr)) (tr (if (null? payments) #f