TDBC investigation

---- errorInfo: Function sequence error: result set is exhausted.
    while executing
"my columns"
    (class "::tdbc::resultset" method "allrows" line 29)
    invoked from within
"::oo::Obj14::ResultSet::1 allrows -as dicts"
    ("uplevel" body line 1)
    invoked from within
"uplevel 1 $cmd"
    (class "::tdbc::statement" method "allrows" line 31)
    invoked from within
"[my prep $schema] allrows -as dicts"
    (class "::Store" constructor line 49)
    invoked from within
"Store create store file $dbfile primary phonebook schema {
	    PRAGMA foreign_keys = on;
	    CREATE TABLE phonebook (

Schema is: 

	    PRAGMA foreign_keys = on;
	    CREATE TABLE phonebook (
				 id INTEGER PRIMARY KEY AUTOINCREMENT,
				 name TEXT UNIQUE NOT NULL COLLATE NOCASE,
				 phone TEXT,
				 busy INTEGER DEFAULT 0,
				 nada TEXT
				 );
	    CREATE UNIQUE INDEX name ON phonebook(name);