[sawfish] actual commit (previous was only ChangeLog)

[Christopher Bratusek <chrisb src gnome org>]

commit 9b708551224c28f370be6e1c7a1d4b9967386645
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Wed Nov 10 21:23:28 2010 +0100

    actual commit (previous was only ChangeLog)

 lisp/sawfish/wm/windows.jl |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index e09ff57..1960d10 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -166,7 +166,8 @@ find a window object whose window-role matches ROLE. Returns nil if no such
 window is found."
     (if regex
         (car (filter-windows (lambda (w)
-			      (string-match role (window-role w)))))
+			       (when (window-role w)
+				 (string-match role (window-role w))))))
       (car (filter-windows (lambda (w)
 			    (string= (window-role w) role))))))