(no commit message)

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 313848c6cc7801c7ae2bbeeffc9929ea876b7895..f9594cfd58fa983d4189f261dbc93bb2e3fe9bd0 100755 (executable)
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -94,7 +94,7 @@
           ((get-type)
            ,type-symbol)
           (else
           ((get-type)
            ,type-symbol)
           (else

-           (display ,(cons 'list (map (lambda (x) `(acons ',(car x) ,(car x) '())) publish)))
+           (display ,(cons 'list (map (lambda (x) `(cons ',(car x) ,(car x))) publish)))

            (newline)
            (catch #t
                   (lambda () ,@body)
            (newline)
            (catch #t
                   (lambda () ,@body)