Wrap-Around with window not working

Hello everyone.

I'd like to have a fresh pair of eyes on this one: Wrapping around
does not work if you want to move a window. Well, actually it does work
if you use the window-menu, but not via the keyboard shortcuts.

I narrowed it pretty much down to 

    ./lisp/sawfish/wm/ext/workspace-grid.jl

line 263 and line 159.
It boils down to get-workspace-right returning nil if one end of the
workspaces has been reached. It should, if I see this correct, return
the workspace on the other side, at least if wrap-around is set.

Can someone confirm my observations?

-- 
Sawfish ML