--- a/String.st	Wed Jun 10 19:57:41 1998 +0200
+++ b/String.st	Wed Jun 10 19:59:37 1998 +0200
@@ -2701,6 +2701,17 @@
             RETURN ( false );
         }
 
+# ifdef UINT64
+        while (len2 > (OHDR_SIZE+sizeof(UINT64))) {
+            if ( *((unsigned UINT64 *)src1) != *((unsigned UINT64 *)src2) ) {
+                RETURN (false);
+            }
+            len2 -= sizeof(UINT64);
+            src1 += sizeof(UINT64);
+            src2 += sizeof(UINT64);
+        }
+# endif /* UINT64 */
+
         while (len2 > (OHDR_SIZE+sizeof(INT))) {
             if ( *((unsigned INT *)src1) != *((unsigned INT *)src2) ) {
                 RETURN (false);
@@ -2748,5 +2759,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.118 1998-06-10 17:57:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.119 1998-06-10 17:59:37 cg Exp $'
 ! !