Attempt to get new clock code working without the need for smartref.no_smartref

1 files changed, 4 insertions, 7 deletions

diff --git a/library/clock.tcl b/library/clock.tcl
index 471deff..1222084 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -544,8 +544,7 @@ proc mcget {loc} {
 
     # try to retrieve now if already available:
     if {[dict exists $mcMergedCat $loc]} {
-	set mrgcat [dict get $mcMergedCat $loc]
-	return [dict smartref $mrgcat]
+	return [dict get $mcMergedCat $loc]
     }
 
     # get locales list for given locale (de_de -> {de_de de {}})
@@ -576,13 +575,12 @@ proc mcget {loc} {
 #	locales		List of locales to merge.
 #
 # Results:
-#	Returns the (weak pointer) to merged dictionary of message catalog.
+#	Returns the merged dictionary of message catalog.
 #
 proc mcMerge {locales} {
     variable mcMergedCat
     if {[dict exists $mcMergedCat [set loc [lindex $locales 0]]]} {
-	set mrgcat [dict get $mcMergedCat $loc]
-	return [dict smartref $mrgcat]
+	return [dict get $mcMergedCat $loc]
     }
     # package msgcat currently does not provide possibility to get whole catalog:
     upvar ::msgcat::Msgs Msgs
@@ -601,8 +599,7 @@ proc mcMerge {locales} {
 	}
     }
     dict set mcMergedCat $loc $mrgcat
-    # return smart reference (shared dict as object with exact one ref-counter)
-    return [dict smartref $mrgcat]
+    return $mrgcat
 }
 
 #----------------------------------------------------------------------