diff --git a/Site.master.vb b/Site.master.vb
index 899461f8d..d187dbef2 100644
--- a/Site.master.vb
+++ b/Site.master.vb
@@ -320,7 +320,7 @@ Partial Class Site
         Dim ClassActive As String
         CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0
 
-        Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "")
+        Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
         If Request.Url.Port <> 80 Then
             strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
         End If