diff --git a/intero.cabal b/intero.cabal
--- a/intero.cabal
+++ b/intero.cabal
@@ -1,7 +1,7 @@
 name:
   intero
 version:
-  0.1.1
+  0.1.2
 synopsis:
   Complete interactive development program for Haskell
 license:
diff --git a/src/GhciFind.hs b/src/GhciFind.hs
--- a/src/GhciFind.hs
+++ b/src/GhciFind.hs
@@ -59,7 +59,8 @@
                         return (Right (stripSurrounding
                                          (span' :
                                           map makeSrcSpan
-                                              (filter ((== Just name') .
+                                              (filter (fromMaybe False .
+                                                       fmap (reliableNameEquality name') .
                                                        fmap getName .
                                                        spaninfoVar)
                                                       (modinfoSpans info)))))
@@ -72,6 +73,14 @@
                (mkRealSrcLoc (mkFastString fp)
                              el'
                              (1 + ec')))
+
+-- | Reliable equality for two names. This tests based on the start
+-- line and start column and module.
+--
+-- We don't use standard equality. The unique can differ. Even the end
+-- column can differ.
+reliableNameEquality :: Name -> Name -> Bool
+reliableNameEquality name1 name2 = nameSrcLoc name1 == nameSrcLoc name2
 
 -- | Strip out spans which surrounding other spans in a parent->child
 -- fashion. Those are useless.
diff --git a/src/InteractiveUI.hs b/src/InteractiveUI.hs
--- a/src/InteractiveUI.hs
+++ b/src/InteractiveUI.hs
@@ -165,6 +165,7 @@
   unlines [versionString
           ,"Type :intro and press enter for an introduction of the standard commands."]
 
+versionString :: [Char]
 versionString =
   "Intero " ++
   showVersion Paths_intero.version ++