partially revert f665afd65ee7a5f9 (INST_INVOKE_REPLACE/CMD_COMPILE_TO_INVOKED), ensemble compiled in configure -init-complete (only for clock)

1 files changed, 11 insertions, 10 deletions

diff --git a/library/init.tcl b/library/init.tcl
index 5eb5dfc..9306986 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -117,19 +117,20 @@ if {[interp issafe]} {
 	namespace inscope ::tcl::clock [list namespace ensemble create -command \
 	    [uplevel 1 [list ::namespace origin [::lindex [info level 0] 0]]] \
 	    -map $cmdmap]
+	::tcl::clock::configure -init-complete
 
-	uplevel 1 [info level 0]
-    }
-
-    # Auto-loading stubs for 'clock.tcl'
+	# Auto-loading stubs for 'clock.tcl'
 
-    namespace eval ::tcl::clock {
-	proc _load_stubs args {
-	    namespace unknown {}
-	    ::source -encoding utf-8 [::file join [info library] clock.tcl]
-	    tailcall {*}$args
+	namespace inscope ::tcl::clock {
+	    proc _load_stubs args {
+		namespace unknown {}
+		::source -encoding utf-8 [::file join [info library] clock.tcl]
+		tailcall {*}$args
+	    }
+	    namespace unknown ::tcl::clock::_load_stubs
 	}
-	namespace unknown ::tcl::clock::_load_stubs
+
+	uplevel 1 [info level 0]
     }
 }