From 1daefc86d0fee718c948bdfe95c7020e430db1c9 Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Sat, 21 Jan 2012 21:58:12 +0900
Subject: [PATCH] xanadu - xml-tree

---
 scsh/xanadu/b-tree.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/xanadu/b-tree.scm b/scsh/xanadu/b-tree.scm
index d10c8e6..802b04f 100644
--- a/scsh/xanadu/b-tree.scm
+++ b/scsh/xanadu/b-tree.scm
@@ -104,9 +104,9 @@
                           ((= j len) 0)
                         (search-rec str (vector-ref j side-tree))))
                      ((let ((side-tree-el-second ((vector-ref side-tree (+ i 1)))))
-                        (and (string<? str
+                        (and (string>? str
                                        ((side-tree-el-first 'get-data)))
-                             (string>? str
+                             (string<? str
                                        ((side-tree-el-second 'get-data))))
                         (display "node not found in tree.") 0))
                      ((string=? str ((side-tree-el-first 'get-data)))