Git fetch method not working right

[Manolis Ragkousis <manolis837@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 444 bytes --]

While I pass to it a specific commit, it downloads a different
(older?) version. I have prepared a testcase with the libpthread,
which is the one that this happens. It will download the files and
then the building will fail, so just compare the file
sysdeps/mach/hurd/pt-sysdep.h with the same file from the commit
e2ae1c43d168fc6f8b34332cbb0656e5d107cbf3 in master. They are
different.

Build it with "./pre-inst-env guix build libpthread -K"

[-- Attachment #2: libpthread_test_case.patch --]
[-- Type: text/x-patch, Size: 1795 bytes --]

From e67dcb197cdff59450aa05de6dcdc3f63e22f46e Mon Sep 17 00:00:00 2001
From: Manolis Ragkousis <manolis837@gmail.com>
Date: Tue, 8 Apr 2014 01:41:32 +0000
Subject: [PATCH] Testcase

---
 gnu/packages/hurd.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index f1e7dbc..b23ace3 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -128,4 +128,37 @@ communication.")
      "This package provides C headers of the GNU Hurd, used to build the GNU C
 Library and other user programs.")
     (license gpl2+)))
+
+;;This should download the HEAD of the master branch but it's not
+;;Compare the file sysdeps/mach/hurd/pt-sysdep.h with the same file from 
+;;the commit e2ae1c43d168fc6f8b34332cbb0656e5d107cbf3 in master. They are different
+
+(define-public libpthread 
+  (package
+    (name "libpthread")
+    (version "0.3")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "git://git.sv.gnu.org/hurd/libpthread")
+                    (commit "e2ae1c43d168fc6f8b34332cbb0656e5d107cbf3")))
+              (sha256
+               (base32 
+                "0bb8m0pk7b53sww4ahjds77bvqy0alz54g3aylzwncfca52gacqp"))
+              (file-name "libpthread" )))
+    (build-system gnu-build-system)
+    (arguments
+     '(
+       #:phases
+       (alist-replace
+        'unpack
+        (lambda* (#:key inputs source #:allow-other-keys)                                        
+          (mkdir "source")
+          (chdir "source")
+          (copy-recursively source ".")
+           #t)
+        %standard-phases)))
+    (home-page "Testing")
+    (synopsis "Testing")
+    (description "Testing")
+    (license gpl2+)))
-- 
1.9.0