--- orig/slide-window.jl	2002-11-17 20:36:38.000000000 +0100
+++ fix/slide-window.jl	2002-11-23 11:12:28.000000000 +0100
@@ -43,7 +43,10 @@
   (define (slide-window w right down)
     (unless (window-get w 'fixed-position)
       (let ((coords (window-position w)))
-	(move-window-to w (+ (car coords) right) (+ (cdr coords) down)))))
+	(move-window-to w (+ (car coords) right) (+ (cdr coords) down)))
+      (call-window-hook 'after-move-hook w
+			`((,@(if (/= right 0) '(horizontal))
+			   ,@(if (/= down 0) '(vertical)))))))
 
 ;;; window commands