I'm trying to run this code on Windows XP, SBCL 1.0.6 and ActiveTCL 8.4.14.0 : (defun tester () (setf *debug-tk* nil) (with-ltk () (let ((b (make-instance 'button :text "ok" :command (lambda () (choose-directory) (finish-output))))) (pack b)))) This code hangs, and does not give me a directory chooser. Anyone have a fix for this ? -- _________________ Kjeld K. B. Massali denatus@gmail.com ------------------------------