diff --git a/tcl/StaTcl.i b/tcl/StaTcl.i
index 084596f2..ffff36a5 100644
--- a/tcl/StaTcl.i
+++ b/tcl/StaTcl.i
@@ -5291,6 +5291,13 @@ arrivals_invalid()
   sta->arrivalsInvalid();
 }
 
+void
+delays_invalid()
+{
+  Sta *sta = Sta::sta();
+  sta->delaysInvalid();
+}
+
 %} // inline
 
 ////////////////////////////////////////////////////////////////