diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+0.1.1.1
+	* fixed use of internal function for parsing shared strings, previous change was unused in practice
 0.1.1
 	* added support for rich text shared strings (thanks to Steve Bigham <steve.bigham@gmail.com>)
 0.1.0.5
diff --git a/src/Codec/Xlsx/Parser.hs b/src/Codec/Xlsx/Parser.hs
--- a/src/Codec/Xlsx/Parser.hs
+++ b/src/Codec/Xlsx/Parser.hs
@@ -149,7 +149,7 @@
 getSharedStrings  :: Zip.Archive -> IM.IntMap Text
 getSharedStrings x = case xmlCursor x "xl/sharedStrings.xml" of
     Nothing  -> IM.empty
-    Just c -> IM.fromAscList $ zip [0..] (c $/ element (n"si") &/ element (n"t") &/ content)
+    Just c -> parseSharedStrings c
 
 getStyles :: Zip.Archive -> Styles
 getStyles ar = case Zip.fromEntry <$> Zip.findEntryByPath "xl/styles.xml" ar of
diff --git a/xlsx.cabal b/xlsx.cabal
--- a/xlsx.cabal
+++ b/xlsx.cabal
@@ -1,6 +1,6 @@
 Name:                xlsx
 
-Version:             0.1.1
+Version:             0.1.1.1
 
 Synopsis:            Simple and incomplete Excel file parser/writer
 Description: