diff --git a/scsh/xanadu/b-tree.scm b/scsh/xanadu/b-tree.scm
index 188321c..cb24405 100644
--- a/scsh/xanadu/b-tree.scm
+++ b/scsh/xanadu/b-tree.scm
@@ -43,12 +43,14 @@
 
     (define (set-left-with-index! i value)
       (cond ((not left)
-             (display "not left"))
+             (display "not left") 
+             #f)
             (else (vector-set! left i value))))
 
     (define (set-right-with-index! i value)
       (cond ((not right)
-             (display "not right"))
+             (display "not right")
+             #t)
             (else (vector-set! right i value))))
 
     (define (get-left)