diff -r b70fafe4ce38 swank.lisp
--- a/swank.lisp	Mon Feb 02 11:06:58 2009 +0100
+++ b/swank.lisp	Mon Feb 02 15:43:27 2009 +0100
@@ -441,8 +441,14 @@
 
 (defmacro with-io-redirection ((connection) &body body)
   "Execute BODY I/O redirection to CONNECTION. "
-  `(with-bindings (connection.env ,connection)
-     . ,body))
+  `(progn 
+     (format t "Entering WITH-IO-REDIRECTION with a connection which is ~A~%" connection)
+;     (handler-case
+     (with-bindings (connection.env ,connection)
+       . ,body)
+;       (t (e) (format t "WITH-BINDINGS returned with error ~A~%" e)))
+     (format t "Leaving WITH-IO-REDIRECTION~%")))
+  
       
 (defmacro with-connection ((connection) &body body)
   "Execute BODY in the context of CONNECTION."
