mq: fix make-envelope/dll constructor.

* gnu/gnunet/message/make-envelope/dll
  (<envelope/dll>): specify parent type.
  (make-envelope/dll): use parent constructor.

1 files changed, 3 insertions, 2 deletions

diff --git a/gnu/gnunet/message/envelope.scm b/gnu/gnunet/message/envelope.scm
index cf2fc41..749017a 100644
--- a/gnu/gnunet/message/envelope.scm
+++ b/gnu/gnunet/message/envelope.scm
@@ -97,14 +97,15 @@ This may only be done once."
            "A variant of @code{make-envelope}, that organises envelopes
 in a linked list.  The capability @var{cap} will be required for accessing
 and modifying this list."
-           (apply %make cap #f #f args))))
+           ((apply %make args) cap #f #f))))
+      (parent <envelope>)
       (sealed #f)
       (opaque #t))
 
     (define (envelope-dll-check ev/dll cap)
       "Verify whether the capability @var{cap} can be used
 for accessing the underlying DLL of the envelope @var{ev}.
-If not, raise an exception."
+If not, raise an exception.  Otherwise, return truth."
       ;; FIXME &bad-capability exception?
       (assert (eq? (%envelope/dll-capability ev/dll) cap)))