diff --git a/lib/WebGUI/Macro/UsersOnline.pm b/lib/WebGUI/Macro/UsersOnline.pm
index 65dc7f918..53f6008b3 100644
--- a/lib/WebGUI/Macro/UsersOnline.pm
+++ b/lib/WebGUI/Macro/UsersOnline.pm
@@ -171,9 +171,7 @@ sub _visitors {
 	my $ip_clause;
 
 	# Check whether instance of Apache2::ServerRec is available
-	if($session->server) {
-		# Query hostname of server
-		my $hostname = $session->server->server_hostname();
+	if(my $hostname = $session->request->uri->host) {
 
 		# Look up server IP addresses
 		my $res = Net::DNS::Resolver->new();