X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_env.ml;h=f9c789eff50e6d493f34a5bc8757b9c8abad173d;hb=f5c4a559776942f9a693f1c8858efa65e400a2e4;hp=377d305f4061570eca45cbf50bb4370bbd79d5f6;hpb=86e80bc65186bf4c2824dc94f5f4dd5966843f14;p=helm.git

diff --git a/helm/http_getter/http_getter_env.ml b/helm/http_getter/http_getter_env.ml
index 377d305f4..f9c789eff 100644
--- a/helm/http_getter/http_getter_env.ml
+++ b/helm/http_getter/http_getter_env.ml
@@ -1,5 +1,5 @@
 (*
- *  Copyright (C) 2000, HELM Team.
+ *  Copyright (C) 2003, HELM Team.
  *
  *  This file is part of HELM, an Hypertextual, Electronic
  *  Library of Mathematics, developed at the Computer Science
@@ -100,7 +100,7 @@ let host =
   Pcre.replace ~pat:"\n+$" (Buffer.contents buf)
 let my_own_url =
   sprintf
-    "http://%s%s/"
+    "http://%s%s" (* without trailing '/' *)
     host
     (if port = 80 then "" else (sprintf ":%d" port))
 let dtd_base_url = safe_getenv "HTTP_GETTER_DTD_BASE_URL"