diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,4 @@
+0.9.8: Fixed bug.
 0.9.7: Added binary tree sequence datastructure
 0.9.6: Fixed bug in Functor for FastQueue which causes it be not O(1)
 0.9.5: Added traversable instances (thanks dolio!)
diff --git a/Data/Sequence/BSeq.hs b/Data/Sequence/BSeq.hs
--- a/Data/Sequence/BSeq.hs
+++ b/Data/Sequence/BSeq.hs
@@ -52,12 +52,11 @@
 instance Sequence BSeq where
   empty     = Empty
   singleton = Leaf
-  Empty      >< r = r
-  l          >< Empty = l
-  (Node l r) >< z = Node l (Node r z)
-  (Leaf x)   >< z = Node (Leaf x) z
+  (><)      = Node
   viewl Empty               = EmptyL
   viewl (Leaf x)            = x :< Empty
+  viewl (Node (Node l r) z) = viewl (Node l (Node r z))
+  viewl (Node Empty r)      = viewl r
   viewl (Node (Leaf x) r)   = x :< r
 
 
diff --git a/sequence.cabal b/sequence.cabal
--- a/sequence.cabal
+++ b/sequence.cabal
@@ -1,5 +1,5 @@
 Name:                sequence
-Version:             0.9.7
+Version:             0.9.8
 Synopsis:	         A type class for sequences and various sequence data structures.
 Description:         A type class for sequences and various sequence data structures.
 License:             BSD3