From 535a4af2172d5a9b7f675178443fc3b648b064b7 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Sun, 29 May 2011 07:57:25 +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 6081cb4..09e296a 100755
--- a/src/gacela_mobs.scm
+++ b/src/gacela_mobs.scm
@@ -50,7 +50,7 @@
 	    (cond ((null? mobs) #f)
 		  (else
 		   (cond (function (function)))
-		   (secure-block #f (apply (car mobs) (cons option args)))
+		   (catch #t (lambda () (apply (car mobs) (cons option args))) (lambda (key . args) #f))
 		   (or #t (run-mobs-rec (cdr mobs))))))))
 
   (set! mob-off
-- 
2.39.5