diff --git a/dmd/expression.c b/dmd/expression.c
index 326e72e7..18728dc5 100644
--- a/dmd/expression.c
+++ b/dmd/expression.c
@@ -2727,7 +2727,7 @@ int StringExp::compare(Object *obj)
         switch (sz)
         {
             case 1:
-                return strcmp((char *)string, (char *)se2->string);
+                return memcmp((char *)string, (char *)se2->string, len1);
 
             case 2:
             {   unsigned u;