From f6df73d9987694a3499df09ef33aa32c0136a1c2 Mon Sep 17 00:00:00 2001
From: ellson <devnull@localhost>
Date: Tue, 28 Oct 2008 00:34:44 +0000
Subject: [PATCH] work in progress

---
 lib/inkpot/inkpot_lib.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/inkpot/inkpot_lib.tcl b/lib/inkpot/inkpot_lib.tcl
index 4bdcaa010..a2e472d51 100755
--- 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
-- 
2.40.0