(fetch "portletNavi" body: (sxml `(form (get "navilinklist") (dest ,(oid->string (me (data (xsl-variable "portalName"))))) (portalName ,(data (xsl-variable "portalName"))) (portalLocation ,(literal (read-locator (msg 'location-format) (msg 'location) ) )) )) )