[sawfish] fixed typo fixed get-windwo-by-role

[Christopher Bratusek <chrisb src gnome org>]

commit 7b4d5ddf50796cb192bc6e0537dfc76e7df7c4ce
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Tue Nov 9 20:55:32 2010 +0100

    fixed typo
    fixed get-windwo-by-role

 lisp/sawfish/wm/commands/jump-or-exec.jl |    2 +-
 lisp/sawfish/wm/windows.jl               |    8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)
---
diff --git a/lisp/sawfish/wm/commands/jump-or-exec.jl b/lisp/sawfish/wm/commands/jump-or-exec.jl
index 77a3d60..81a16ac 100644
--- a/lisp/sawfish/wm/commands/jump-or-exec.jl
+++ b/lisp/sawfish/wm/commands/jump-or-exec.jl
@@ -51,7 +51,7 @@
     "jump to a window matched by re, or start program otherwise."
     (catch 'return
       (let ((wind (if class
-                    (get-window-by-clase re #:regex t)
+                    (get-window-by-class re #:regex t)
                     (get-window-by-name re #:regex t))))
         (if (functionp onfocused) ; check if already focused
             (let ((curwin (input-focus)))
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 4d3800d..22daecf 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -176,10 +176,10 @@ is found."
 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))))
-      (car filter-windows (lambda (w)
-			    (string= (window-role w) role)))))
+        (car (filter-windows (lambda (w)
+			      (string-match role (window-role w)))))
+      (car (filter-windows (lambda (w)
+			    (string= (window-role w) role))))))
 
   (define (window-really-wants-input-p w)
     "Return nil if window W should never be focused."