diff --git a/packages/rtl/webrouter.pp b/packages/rtl/webrouter.pp
index cbb7ba3..3d57dd3 100644
--- a/packages/rtl/webrouter.pp
+++ b/packages/rtl/webrouter.pp
@@ -646,7 +646,7 @@ end;
 
 function TRouter.GetCurrentLocation: String;
 begin
-
+  Result:=History.GetCurrentLocation;
 end;
 
 function TRouter.Push(location: TRawLocation): TTransitionResult;