[sawfish] fixed a newly introduced bug

[Christopher Bratusek <chrisb src gnome org>]

commit 2b71245759201698c24ace66dec1e72f08a085fd
Author: chrisb <zanghar freenet de>
Date:   Tue Sep 15 17:42:22 2009 +0200

    fixed a newly introduced bug

 ChangeLog                             |    3 +++
 lisp/sawfish/wm/util/prompt-extras.jl |    2 +-
 2 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 5c7b303..50ad8b4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2009-09-15  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/util/prompt-extras: fixed a newly introduced bug [Matthew Love]
+
 2009-09-14  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/ext/match-window.jl: string change in rename-window
 	                                       improved keymap-trans
diff --git a/lisp/sawfish/wm/util/prompt-extras.jl b/lisp/sawfish/wm/util/prompt-extras.jl
index 88c519d..675639c 100644
--- a/lisp/sawfish/wm/util/prompt-extras.jl
+++ b/lisp/sawfish/wm/util/prompt-extras.jl
@@ -127,7 +127,7 @@ Unless DONT-VALIDATE is t, only a member of PROMPT-LIST will be returned."
 
 (define (prompt-for-string #!optional title start)
   (let ((prompt-completion-fun prompt-complete-filename)
-	(prompt-validation-fun nil))
+	(prompt-validation-fun (lambda (#!rest) nil)))
     (prompt (or title "Enter string: ") start)))
 
 (define (prompt-for-number #!optional title)