diff --git a/mlibc/libc-mes+tcc.c b/mlibc/libc-mes+tcc.c
index b70cb3cb..1b917d2f 100644
--- a/mlibc/libc-mes+tcc.c
+++ b/mlibc/libc-mes+tcc.c
@@ -277,7 +277,12 @@ strcat (char *dest, char const *src)
 char *
 strchr (char const *s, int c)
 {
-  eputs ("strchr stub\n");
+  char const *p = s;
+  while (*p || !c)
+    {
+      if (c == *p) return p;
+      *p++;
+    }
   return 0;
 }