$NetBSD: patch-ad,v 1.1 2003/01/18 06:37:02 toshii Exp $

--- lisp/sawfish/wm/windows.jl.orig	Mon Nov  4 12:35:38 2002
+++ lisp/sawfish/wm/windows.jl
@@ -320,7 +320,7 @@ If HINTS is non-nil, then it is the size
 	    (t x))))
 
   (define (adjust-position-for-gravity/y w grav y #!key inverse)
-    (let* ((tl-off (window-frame-offset w))
+    (let* ((tl-off (cdr (window-frame-offset w)))
 	   (br-off (- (cdr (window-frame-dimensions w))
 		      (cdr (window-dimensions w))))
 	   (sign (if inverse -1 +1)))
