work in progress

diff --git a/lib/inkpot/inkpot_lib.tcl b/lib/inkpot/inkpot_lib.tcl
index 4bdcaa0109261809057c4bc228772e11c5b1a148..a2e472d51537dd8f077945c51bb1469571bfb5d4 100755 (executable)
--- a/lib/inkpot/inkpot_lib.tcl
+++ b/lib/inkpot/inkpot_lib.tcl
@@ -158,7 +158,7 @@ set SZT_SCHEMES 0
 tab_initialize $f {set SZT_SCHEMES} {set scheme} \
        "inkpot_scheme_t TAB_SCHEMES\[SZT_SCHEMES\] = {"
 foreach {scheme} [lsort -ascii [array names ALL_SCHEMES]] {
-    tab_elem $ALL_STRINGS_coded($scheme),
+    tab_elem "{$ALL_STRINGS_coded($scheme)},"
     tab_row
     set ALL_SCHEMES_coded($scheme) [list $SZT_SCHEMES [expr 1 << $SZT_SCHEMES]]
     incr SZT_SCHEMES