1 files changed, 15 insertions, 0 deletions
diff --git a/library/init.tcl b/library/init.tcl
index 5cedd14..51e2251 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -830,3 +830,18 @@ proc tcl::CopyDirectory {action src dest} {
     }
     return
 }
+
+
+##
+## TIP 452 -- start of addition
+##
+namespace eval ::tcltest:: {}
+proc ::tcltest::seam {action seamName body} {
+    if {![string equal $action "define"]} {
+        return -code error -errorcode [list tcltest seam UNKACT $action] "Uknown action: '$action' -- must be 'define'"
+    }
+    return [uplevel 1 $body]
+}
+##
+## TIP 452 -- end of addition
+##