chiark / gitweb /
ro compiles
[chiark-tcl.git] / cdb / cdb.tct
index 4df47f3..a7d22b4 100644 (file)
@@ -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)