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 ?