diff --git a/src/pike_memory.c b/src/pike_memory.c
index 87bea63820166820dc82f94453d8c4d62b373108..6c13aec8e26addee4cd10af84011c4df2dc26881 100644
--- a/src/pike_memory.c
+++ b/src/pike_memory.c
@@ -3,13 +3,14 @@
 ||| Pike is distributed as GPL (General Public License)
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
+/**/
 #include "global.h"
 #include "pike_memory.h"
 #include "error.h"
 #include "pike_macros.h"
 #include "gc.h"
 
-RCSID("$Id: pike_memory.c,v 1.30 1999/02/23 11:18:36 marcus Exp $");
+RCSID("$Id: pike_memory.c,v 1.31 1999/02/27 21:25:43 grubba Exp $");
 
 /* strdup() is used by several modules, so let's provide it */
 #ifndef HAVE_STRDUP
@@ -28,6 +29,12 @@ char *strdup(const char *str)
 }
 #endif /* !HAVE_STRDUP */
 
+int pcharp_memcmp(PCHARP a, PCHARP b, int sz)
+{
+  return generic_quick_binary_strcmp(a.str, sz, a.shift,
+				     b.str, sz, b.shift);
+}
+
 INLINE p_wchar1 *MEMCHR1(p_wchar1 *p,p_wchar1 c,INT32 e)
 {
   e++;