After some hackering and reading that other people had problems with a lacking space inside a {~a} I managed to get it working.<br><br>Here is the code with only marginally small rewrite(added two spaces):<br>(defun choose-directory (&key (initialdir (namestring *default-pathname-defaults*))
<br>             parent title mustexist)<br>  (format-wish "senddatastring [tk_chooseDirectory ~@[ -initialdir {~a }~]~@[ -parent ~a~]~@[ -title {~a }~]~@[ -mustexist ~a~]]" initialdir (and parent (widget-path parent)) title (and mustexist 1))
<br>  (read-data))<br><br>notice the spaces inside {~a }.<br clear="all"><br>-- <br> _________________<br> Kjeld K. B. Massali<br> <a href="mailto:denatus@gmail.com">denatus@gmail.com</a> <br> ------------------------------