diff --git a/tcl/StaTcl.i b/tcl/StaTcl.i
index f0e6ca0a..3f13ff85 100644
--- a/tcl/StaTcl.i
+++ b/tcl/StaTcl.i
@@ -5403,7 +5403,7 @@ delays_invalid()
 }
 
 const char *
-pin_location(Pin *pin)
+pin_location(const Pin *pin)
 {
   Network *network = cmdNetwork();
   double x, y;
@@ -5416,6 +5416,14 @@ pin_location(Pin *pin)
     return "";
 }
 
+const char *
+port_location(const Port *port)
+{
+  Network *network = cmdNetwork();
+  const Pin *pin = network->findPin(network->topInstance(), port);
+  return pin_location(pin);
+}
+
 int
 endpoint_count()
 {