From 736d4b8f5aa3507704034b80cac5b2853c36e959 Mon Sep 17 00:00:00 2001
From: Leo <sdl.web@gmail.com>
Date: Tue, 17 Aug 2010 20:22:43 +0100
Subject: [PATCH] Fix a bug introduced in 1efde92

---
 magit.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/magit.el b/magit.el
index b805ee96..34f29158 100644
--- a/magit.el
+++ b/magit.el
@@ -559,7 +559,8 @@ out revs involving HEAD."
       ;; There doesn't seem to be a way of filtering HEAD out from name-rev,
       ;; so we have to do it manually.
       ;; HEAD-based names are too transient to allow.
-      (when (string-match "^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)" name)
+      (when (and (stringp name)
+                 (string-match "^\\(.*\\<HEAD\\)\\([~^].*\\|$\\)" name))
         (let ((head-ref (match-string 1 name))
               (modifier (match-string 2 name)))
           ;; Sometimes when name-rev gives a HEAD-based name,