diff --git a/scheme/xlib/window.scm b/scheme/xlib/window.scm
index 76c2668..ea3f235 100644
--- a/scheme/xlib/window.scm
+++ b/scheme/xlib/window.scm
@@ -147,7 +147,7 @@
 	(Xdisplay (display-Xdisplay (window-display window))))
     (let ((values (%get-window-attributes Xdisplay Xwindow)))
       (if (not values)
-	  (error "cannot get window attributes." window)
+	  #f
 	  ((integer+vector->window-attribute-alist (window-display window))
 	   values)))))
 
@@ -276,10 +276,10 @@
 ;; windows). See XRaiseWindow.
 
 (define (raise-window window)
-  (set-window-stack-mode! window 'above))
+  (set-window-stack-mode! window (stack-mode above)))
 
 (define (lower-window window)
-  (set-window-stack-mode! window 'below))
+  (set-window-stack-mode! window (stack-mode below)))
 
 ;; The restack-windows function restacks the windows in the order
 ;; specified, from top to bottom. The stacking order of the first
@@ -347,7 +347,7 @@
 	#f)))
 
 (import-lambda-definition %translate-coordinates (Xdisplay srcXwindow x y 
-							   srcXwindow)
+							   dstXwindow)
   "scx_Translate_Coordinates")