missing scripts

I was emailed the following script from another contact on this mailing list and was told it is %db.r. It contains the Miscellaneous Helper Functions starting on page 589 in the book. I think %new-object.r is suppose to be %new-record-object.r found on page 508. You should also note that the script %mediator-object.r on page 533 is not even called by %db-navigator.r. However,on page 609 %db-navigator.r contains one of %mediator-object.r's functions open-mediator-on, though it lacks the collect-references and set-in-reference functions found in %mediator-object.r. These missing functions are called by open-mediator-on. I deleted the %db-navigator.r open-mediator-on function, then I added %mediator-object.r as one of the script %db-navigator.r should call when it first starts. I came close to getting the dbms to work but encountered a bug I was never able to track down. I went on to other things but intend to go back to this project later. If you get this to work please let me know. RTOG is great for learning stuff but the dbms can be frustrating. REBOL [] to-dir: func [db-root table] [ return join db-root [table "/"] ] get-config: func [dir] [ return load join dir ["config.lst"] ] get-index-files: func [dir] [ return load join dir ["index-files.lst"] ] get-record-list: func [dir] [ return load join dir ["record.lst"] ] get-index-file: func [dir index] [ return load join dir ["index-" index ".lst"] ] to-sid: func [sid [integer! string!]] [ sid: form sid while [ (length? sid) < 4 ] [ insert sid #"0" ] return sid ] --- "Ryan C. Christiansen" <[norsepower--uswest--net]> wrote:

I'm trying to teach myself to use the database management system in REBOL: The Official Guide, but when I try to 'do %db.navigator.r it tries to 'do two other scripts which I cannot find on the CD: %db.r and %new-object.r Does anyone know where to get these scripts? -Ryan