diff --git a/contrib/factory/factory.factor b/contrib/factory/factory.factor
index 41ef65d7c0..5075184a00 100644
--- a/contrib/factory/factory.factor
+++ b/contrib/factory/factory.factor
@@ -83,7 +83,7 @@ drag-gc get [ (draw-move-outline) ] with-gcontext ;
 : drag-move-window ( -- )
 [ draw-move-outline ] drag-mouse swap v- window-position v+ move-window ;
 
-: drag-move-window% [ drag-move-window ] with-window-object ;
+: drag-move-window% [ drag-move-window raise-window ] with-window-object ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!