diff --git a/tcl/StaTcl.i b/tcl/StaTcl.i
index d52589ae..1f0933c3 100644
--- a/tcl/StaTcl.i
+++ b/tcl/StaTcl.i
@@ -5222,6 +5222,8 @@ arrivals_invalid()
 ////////////////////////////////////////////////////////////////
 
 %extend Library {
+const char *name() { return self->name(); }
+
 Cell *
 find_cell(const char *name)
 {