From 3af4f2fa6e47ebe28f9fb642bd3dc7eb56ec8193 Mon Sep 17 00:00:00 2001
From: Jonathan Spratte <jspratte@yahoo.de>
Date: Sun, 9 Aug 2020 18:24:12 +0200
Subject: [PATCH] slightly faster tl_if_head_is_group:n

---
 l3kernel/l3tl.dtx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/l3kernel/l3tl.dtx b/l3kernel/l3tl.dtx
index d4a1987e8e..ae9efc6ba5 100644
--- a/l3kernel/l3tl.dtx
+++ b/l3kernel/l3tl.dtx
@@ -3146,10 +3146,10 @@
 %    \begin{macrocode}
 \prg_new_conditional:Npnn \tl_if_head_is_group:n #1 { p , T , F , TF }
   {
-    \if_catcode:w
+    \if:w
         \exp_after:wN \use_none:n
           \exp_after:wN { \exp_after:wN { \token_to_str:N #1 ? } }
-        * *
+        \scan_stop: \scan_stop:
       \prg_return_false:
     \else:
       \prg_return_true: