From 1f09eadc325f54c80278ea6beb625566954ab9b8 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Tue, 20 Sep 2011 20:37:38 +0000
Subject: [PATCH]

---
 src/gacela_mobs.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/gacela_mobs.scm b/src/gacela_mobs.scm
index 313848c..f9594cf 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -94,7 +94,7 @@
 	   ((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)
-- 
2.39.2