X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=d94e4685246edaa305112488eeca66ed7aa1cf29;hb=5d9f784170bb7cf0a360e7e545d38049a354e160;hp=a98446b823a7114b705053b0f8433e45dfa4426b;hpb=bc8ba05fc1837e2421e7b53420b655c7806c006a;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index a98446b..d94e468 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -213,7 +213,9 @@
     (when (and socket (si::listen socket)) (push (si:accept socket) clients)))
 
   (defun eval-from-clients ()
-    (dolist (cli clients) (when (si::listen cli) (eval (read cli)))))
+    (dolist (cli clients)
+      (when (si::listen cli)
+	(secure-block cli (eval (read cli))))))
 
   (defun stop-server ()
     (when socket