diff --git a/src/brmelect.scm b/src/brmelect.scm index 669c34b..05b4678 100644 --- a/src/brmelect.scm +++ b/src/brmelect.scm @@ -152,8 +152,8 @@ "FOO" `@div{ @,(resource-context-method (current-resource-context)) - @p{Foo successfully frobnicated for meeting @,(number->string id).} - @a[(href @,(string-append "/admin/meeting/" (number->string id)))]{Back to Meeting} + @p{Foo successfully frobnicated for meeting @,(identity id).} + @a[(href @,(string-append "/admin/meeting/" id))]{Back to Meeting} }))) ;; Returns (possibly cached) SQLite3 DB handle