X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=cdb%2Fcdb.tct;h=a7d22b468cb3ccef22131fb14e9fa2271fc877ff;hp=e33607bc7932348367007a86a0ae3a4547452908;hb=602f89cabd45c343f6adb4b788d26d316f5be47b;hpb=ca258c32ca9f43fa6ddb5642860f310c8b506f2c

diff --git a/cdb/cdb.tct b/cdb/cdb.tct
index e33607b..a7d22b4 100644
--- a/cdb/cdb.tct
+++ b/cdb/cdb.tct
@@ -13,11 +13,13 @@ Table cdb Cdb_SubCommand
 	lookup
 		db	iddata(&cdbtcl_databases)
 		key	obj
+		?def	obj
 		=>	obj
 	lookup-hb
 		db	iddata(&cdbtcl_databases)
 		key	hb
-		=>	hb
+		?def	obj
+		=>	obj
 	close
 		db	iddata(&cdbtcl_databases)
 
@@ -89,8 +91,8 @@ Table cdbwr Cdbwr_SubCommand
 	lookup-hb 0
 		db	iddata(&cdbtcl_rwdatabases)
 		key	string
-		?def	hb
-		=>	hb
+		?def	obj
+		=>	obj
 	delete 0
 		db	iddata(&cdbtcl_rwdatabases)
 		key	string
@@ -106,7 +108,8 @@ Table cdbwr Cdbwr_SubCommand
 		db	iddata(&cdbtcl_rwdatabases)
 	compact-check 0
 		db	iddata(&cdbtcl_rwdatabases)
-	compact-onupdate 0 # this is the default
+	compact-auto 0
+		# this is the default
 		db	iddata(&cdbtcl_rwdatabases)
 	compact-explicit 0
 		db	iddata(&cdbtcl_rwdatabases)