diff --git a/reactive-banana-wx.cabal b/reactive-banana-wx.cabal
--- a/reactive-banana-wx.cabal
+++ b/reactive-banana-wx.cabal
@@ -1,5 +1,5 @@
 Name:                reactive-banana-wx
-Version:             0.8.0.0
+Version:             0.8.0.4
 Synopsis:            Examples for the reactive-banana library, using wxHaskell.
 Description:
     This library provides some GUI examples for the @reactive-banana@ library,
@@ -40,8 +40,8 @@
     build-depends:   base >= 4.2 && < 5,
                      cabal-macosx >= 0.1 && < 0.3,
                      reactive-banana == 0.8.*,
-                     wxcore (>= 0.13.2.1 && < 0.90) || (>= 0.90.0.1 && < 0.91),
-                     wx (>= 0.13.2.1 && < 0.90) || (>= 0.90.0.1 && < 0.91)      
+                     wxcore (>= 0.13.2.1 && < 0.90) || (>= 0.90.0.1 && < 0.92),
+                     wx (>= 0.13.2.1 && < 0.90) || (>= 0.90.0.1 && < 0.92)
     extensions:      ExistentialQuantification
     exposed-modules: Reactive.Banana.WX
 
diff --git a/src/CurrencyConverter.hs b/src/CurrencyConverter.hs
--- a/src/CurrencyConverter.hs
+++ b/src/CurrencyConverter.hs
@@ -17,17 +17,19 @@
 ------------------------------------------------------------------------------}
 main :: IO ()
 main = start $ do
-    -- FIXME: Why does tab traversal not work?
     f        <- frame   [ text := "Currency Converter", tabTraversal := True ]
-    dollar   <- entry f []
-    euro     <- entry f []
+    p        <- panel f []  -- Use panel for tab traversal
+    dollar   <- entry p []
+    euro     <- entry p []
     
-    set f [layout := margin 10 $
+    set p [layout := margin 10 $
             column 10 [
                 grid 10 10 [[label "Dollar:", widget dollar],
                             [label "Euro:"  , widget euro  ]]
             , label "Amounts update while typing."
             ]]
+    set f [layout := widget p]
+    focusOn dollar
 
     let networkDescription :: forall t. Frameworks t => Moment t ()
         networkDescription = do