From 561d818c5b63198565a66644272d6037e6d938bc Mon Sep 17 00:00:00 2001
From: Peter Andersson <peppe@erlang.org>
Date: Fri, 23 Nov 2012 15:11:20 +0100
Subject: Fix silly bug

---
 lib/common_test/src/ct_groups.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/common_test/src/ct_groups.erl')

diff --git a/lib/common_test/src/ct_groups.erl b/lib/common_test/src/ct_groups.erl
index 24ca3826a8..74ab5e5439 100644
--- a/lib/common_test/src/ct_groups.erl
+++ b/lib/common_test/src/ct_groups.erl
@@ -176,7 +176,7 @@ find(Mod, GrNames, all, [{M,TC} | Gs], Known,
 %% Check if test case should be saved
 find(Mod, GrNames, TCs, [TC | Gs], Known,
      Defs, FindAll) when is_atom(TC) orelse 
-			 ((size(TC) == 2) and (hd(TC) /= group)) ->
+			 ((size(TC) == 2) and (element(1,TC) /= group)) ->
     Case =
 	if is_atom(TC) ->
 		Tuple = {Mod,TC},
-- 
cgit v1.2.3