diff --git a/tcl/StaTcl.i b/tcl/StaTcl.i
index 0bf7a4fb..7c9ef0df 100644
--- a/tcl/StaTcl.i
+++ b/tcl/StaTcl.i
@@ -1380,6 +1380,16 @@ using namespace sta;
   Tcl_SetObjResult(interp, obj);
 }
 
+%typemap(out) Corners* {
+  Tcl_Obj *list = Tcl_NewListObj(0, nullptr);
+  Corners *corners = $1;
+  for (Corner *corner : *corners) {
+    Tcl_Obj *obj = SWIG_NewInstanceObj(corner, SWIGTYPE_p_Corner, false);
+    Tcl_ListObjAppendElement(interp, list, obj);
+  }
+  Tcl_SetObjResult(interp, list);
+}
+
 %typemap(out) PropertyValue {
   PropertyValue value = $1;
   switch (value.type()) {
@@ -2739,6 +2749,12 @@ find_corner(const char *corner_name)
   return Sta::sta()->findCorner(corner_name);
 }
 
+Corners *
+corners()
+{
+  return Sta::sta()->corners();
+}
+
 bool
 multi_corner()
 {