diff --git a/src/flags.c b/src/flags.c
index 26285fdbd..ce60b2e3d 100644
--- a/src/flags.c
+++ b/src/flags.c
@@ -1133,7 +1133,7 @@ static int flag2str(char *string, int bot, int udef)
     x++;
   }
   if (string == old)
-    *string++ = '*';
+    *string++ = '-';
   return string - old;
 }
 
diff --git a/src/tclhash.c b/src/tclhash.c
index 71d35f6c2..cb54cecdc 100644
--- a/src/tclhash.c
+++ b/src/tclhash.c
@@ -1316,6 +1316,10 @@ void tell_binds(int idx, char *par)
           continue;
         proc = tc->func_name;
         build_flags(flg, &(tc->flags), NULL);
+        if (!strcmp(flg, "-|-")) {
+          flg[0] = '*';
+          flg[1] = '\0';
+        }
         if (showall || proc[0] != '*') {
           int ok = 0;