X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbin%2Froles%2FwebLWS.ml;h=cef1620074b8a7aa500e2a80250b3080afb0a0b0;hp=35b658a1fed2833a921ff76da8a9562b1e843964;hb=277fc8ff21ce3dbd6893b1994c55cf5c06a98355;hpb=59fd7b5ea24e71b47aee069440f140bcccf1292a

diff --git a/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml b/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml
index 35b658a1f..cef162007 100644
--- a/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml
+++ b/matita/matita/contribs/lambdadelta/bin/roles/webLWS.ml
@@ -56,7 +56,8 @@ let string_of_request cx (opts, fi) =
     let str = KT.concat "&" (KL.map opt_map opts) in
     KP.sprintf "/%s?%s" cx str
   in
-  KP.sprintf "%s#%s" str fi
+  let fi = if fi = "" then "" else "#" ^ fi in
+  KP.sprintf "%s%s" str fi
 
 let control_input form =
   KP.printf "<input form=\"%s\" type=\"hidden\" name=\"%s\" value=\"%s\"/>"