diff --git a/hbs2-git/lib/HBS2Git/App.hs b/hbs2-git/lib/HBS2Git/App.hs
index d9009f89..4c343ba0 100644
--- a/hbs2-git/lib/HBS2Git/App.hs
+++ b/hbs2-git/lib/HBS2Git/App.hs
@@ -286,7 +286,7 @@ readBlock h = do
 readRef :: (HasStorage m, MonadIO m) => RepoRef -> m (Maybe HashRef)
 readRef ref = do
   sto <- getStorage
-  liftIO (getRef sto (refAlias ref)) <&> fmap HashRef
+  liftIO (getRef sto ref) <&> fmap HashRef
 
 readHashesFromBlock :: (MonadIO m, HasStorage m) => HashRef -> m [HashRef]
 readHashesFromBlock (HashRef h) = do