--- a/StringPattern.st	Tue Mar 03 00:30:17 2015 +0100
+++ b/StringPattern.st	Thu Mar 05 11:37:28 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libbasic2' }"
 
 "{ NameSpace: Smalltalk }"
@@ -159,7 +161,7 @@
 
 match: string from: from to: to case: case relax: relax
     "Answers true if receiver matches the given `string`
-     portion starting at `from`, enditn at `to`.
+     portion starting at `from`, ending at `to`.
      If `case` is true, then perform natch case sensitive,
      otherwise match case insensitive.
 
@@ -206,8 +208,7 @@
 matchObject: anObject
     "Return true if pattern matches given object with relax level 1.
 
-    Some heuristics is performed to obtain objects textual
-    representation."
+    Some heuristics is performed to obtain the object's textual representation."
 
     self matchObject: anObject relax: 1
 
@@ -215,10 +216,9 @@
 !
 
 matchObject: object relax: relax
-    "Return true if pattern matches given object..
+    "Return true if pattern matches given object.
 
-    Some heuristics is performed to obtain objects textual
-    representation."
+    Some heuristics is performed to obtain the object's textual representation."
 
     object isString ifTrue:[
         ^self match: object relax: relax.
@@ -425,10 +425,10 @@
 !StringPattern class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.11 2015-01-24 00:05:51 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.12 2015-03-05 10:37:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.11 2015-01-24 00:05:51 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/StringPattern.st,v 1.12 2015-03-05 10:37:28 cg Exp $'
 ! !