diff -aur tcl8.4.15/compat/memcmp.c tcl.new/compat/memcmp.c
--- tcl8.4.15/compat/memcmp.c	2007-01-23 00:27:53.000000000 +0100
+++ tcl.new/compat/memcmp.c	2007-09-02 09:41:18.000000000 +0200
@@ -52,7 +52,7 @@
     CONST unsigned char *ptr2 = (CONST unsigned char *) s2;
 
     for ( ; n-- ; ptr1++, ptr2++) {
-	unsigned char u1 = *s1, u2 = *s2;
+	unsigned char u1 = *ptr1, u2 = *ptr2;
 
 	if ( u1 != u2) {
 	    return (u1-u2);
Only in tcl.new/compat: memcmp.c~
