X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=cdb%2Fcdb.tct;fp=cdb%2Fcdb.tct;h=a70aa1524c522d661300d6c6ac83b600ef24bd5d;hb=7795b9e72903475e48adbc986a945ef3a7fb0309;hp=cfb93baaaafb3a034acf6fe76988c70272919e9a;hpb=8aa50feff3e82f3d217fe7ee897b7a030a72bc90;p=chiark-tcl.git

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index cfb93ba..a70aa15 100644
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -12,8 +12,8 @@ Table cdb Cdb_SubCommand
 		=>	iddata(&cdbtcl_databases)
 	lookup
 		db	iddata(&cdbtcl_databases)
-		key	bytearray
-		=>	bytearray
+		key	obj
+		=>	obj
 	lookup-hb
 		db	iddata(&cdbtcl_databases)
 		key	hb
@@ -21,7 +21,7 @@ Table cdb Cdb_SubCommand
 	close
 		db	iddata(&cdbtcl_databases)
 
-Table cdbwr CdbWr_SubCommand
+Table cdbwr Cdbwr_SubCommand
 	create-empty
 		pathb	string
 		# files:
@@ -50,24 +50,24 @@ Table cdbwr CdbWr_SubCommand
 		# on_info close <statistics-info-string>
 	lookup
 		db	iddata(&cdbtcl_rwdatabases)
-		key	bytearray
-		=>	bytearray
+		key	obj
+		=>	obj
 	lookup-hb
 		db	iddata(&cdbtcl_rwdatabases)
 		key	hb
 		=>	hb
 	update
 		db	iddata(&cdbtcl_rwdatabases)
-		key	bytearray
-		value	bytearray
+		key	obj
+		value	obj
 	update-hb
 		db	iddata(&cdbtcl_rwdatabases)
 		key	hb
 		value	hb
 	update-quick
 		db	iddata(&cdbtcl_rwdatabases)
-		key	bytearray
-		value	bytearray
+		key	obj
+		value	obj
 	update-quick-hb
 		db	iddata(&cdbtcl_rwdatabases)
 		key	hb