diff -rN -u old-ltk/ltk.lisp new-ltk/ltk.lisp
--- old-ltk/ltk.lisp	2009-11-10 11:49:30.000000000 +0100
+++ new-ltk/ltk.lisp	2009-11-10 11:49:30.000000000 +0100
@@ -399,7 +399,7 @@
 		 proc
 		 )
     #+:ecl(ext:run-program program args :input :stream :output :stream
-:error :output)
+:error :output :wait wt)
     #+:openmcl (let ((proc (ccl:run-program program args :input
 					    :stream :output :stream :wait wt)))
 		 (unless proc