diff --git a/scion-browser.cabal b/scion-browser.cabal
--- a/scion-browser.cabal
+++ b/scion-browser.cabal
@@ -1,5 +1,5 @@
 name:           scion-browser
-version:        0.4.1
+version:        0.4.2
 cabal-version:  >= 1.8
 build-type:     Simple
 license:        BSD3
diff --git a/src/Scion/PersistentBrowser/Types.hs b/src/Scion/PersistentBrowser/Types.hs
--- a/src/Scion/PersistentBrowser/Types.hs
+++ b/src/Scion/PersistentBrowser/Types.hs
@@ -85,7 +85,9 @@
   getName (TypeDecl _ (DHead _ name) _)          = getNameString name
   getName (TypeDecl a (DHApp _ h _) b)           = getName $ TypeDecl a h b
   getName (GDataDecl _ _ _ (DHead _ name) _ _ _) = getNameString name
+  getName (GDataDecl a b c (DHApp _ h _) d e f)  = getName $ GDataDecl a b c h d e f
   getName (ClassDecl _ _ (DHead _ name) _ _)     = getNameString name
+  getName (ClassDecl a b (DHApp _ h _) c d)      = getName $ ClassDecl a b h c d
   getName (InstDecl _ _ (IRule _ _ _ (IHCon _ name )) _)        = getQNameString name
 #else  
   getName (TypeDecl _ (DHead _ name _) _)          = getNameString name
diff --git a/src/Scion/PersistentHoogle.hs b/src/Scion/PersistentHoogle.hs
--- a/src/Scion/PersistentHoogle.hs
+++ b/src/Scion/PersistentHoogle.hs
@@ -35,7 +35,8 @@
   mpath <- liftIO $ findHoogleBinPath msandbox p
   case mpath of
    Nothing   -> return []
-   Just path -> do (exitCode, output, err) <- liftIO $ readProcessWithExitCode path [q,"-d",hoogleDir] ""
+   Just path -> do -- use explicit search argument in case the search is itself a command, like 'data'
+                   (exitCode, output, err) <- liftIO $ readProcessWithExitCode path ["search", q,"-d",hoogleDir] ""
                    case exitCode of
                      ExitSuccess -> do 
                                        liftIO $ logToStdout q