diff --git a/rtl/inc/strings.pp b/rtl/inc/strings.pp
index 01fe6ab944..28e68b4463 100644
--- a/rtl/inc/strings.pp
+++ b/rtl/inc/strings.pp
@@ -78,7 +78,7 @@ interface
     function strlicomp(str1,str2 : pchar;l : SizeInt) : SizeInt;
 
     { Returns a pointer to the first occurrence of str2 in    }
-    { str2 Otherwise returns nil                          }
+    { str1 Otherwise returns nil                          }
     function strpos(str1,str2 : pchar) : pchar;
 
     { Makes a copy of p on the heap, and returns a pointer to this copy  }