"servlet/servlet-url.ss" provides functions that might be useful to you. They may eventually provided by another module.
(request->servlet-url req) → servlet-url?
req : request?
Generates a value to be passed to the next function.
su : servlet-url?
Returns a URL string without the continuation information in the URL that went into su