On Thu, Oct 09, 2008 at 11:36:59AM -0700, Matt Brown wrote: > +bringCopyWindow w ws = copyWindow w (W.tag . W.workspace . W.current $ ws) ws There's a W.currentTag which == W.tag . W.workspace . W.current.