sort approvals by context

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index d9de00cb99da21296c1142952e15a2eb4961e23c..e6c27621b35ebdd1ca143f9bcf25d5857e8b8b46 100755 (executable)
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -1154,7 +1154,7 @@ proc approve_decompose_data {specdata} {
     uplevel 1 chop_counted key
     uplevel 1 chop_counted val
 
-    return [uplevel 1 {list $dict $def $image}]
+    return [uplevel 1 {list $dict $ctx $def $image}]
 }
 
 proc approve_compare {fd1 fd2} {