diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index 2c56477c9..73f1749af 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -39,7 +39,8 @@ sub _getPageInfo {
 	($pageId) = $_[0];
 	if ($pageId eq "") {
 		$pageName = lc($ENV{PATH_INFO});
-		$pageName =~ s/\///g;
+		#$pageName =~ s/\///g;
+		$pageName =~ s/\///;
 		$pageName =~ s/\'//;
 		$pageName =~ s/\"//;
 		if ($pageName ne "") {
diff --git a/lib/WebGUI/URL.pm b/lib/WebGUI/URL.pm
index b68a9608a..963fb703b 100644
--- a/lib/WebGUI/URL.pm
+++ b/lib/WebGUI/URL.pm
@@ -50,11 +50,12 @@ sub gateway {
 sub makeCompliant {
         my ($value);
 	$value = $_[0];
-        $value =~ s/\s+$//g;            #removes trailing whitespace
-        $value =~ s/^\s+//g;            #removes leading whitespace
-        $value =~ s/ /_/g;              #replaces whitespace with underscores
-        $value =~ s/\.$//g;             #removes trailing period
-        $value =~ s/[^A-Za-z0-9\-\.\_]//g; #removes all funky characters
+        $value =~ s/\s+$//;            		#removes trailing whitespace
+        $value =~ s/^\s+//;            		#removes leading whitespace
+	$value =~ s/^\\//;			#removes leading slash
+        $value =~ s/ /_/g;              	#replaces whitespace with underscores
+        $value =~ s/\.$//;             		#removes trailing period
+        $value =~ s/[^A-Za-z0-9\-\.\_\\]//g; 	#removes all funky characters
         return $value;
 }