--- a/RegressionTests__ChangeSetTests.st	Mon Mar 25 23:52:25 2013 +0100
+++ b/RegressionTests__ChangeSetTests.st	Tue Mar 26 10:56:23 2013 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -445,6 +447,25 @@
     "Created: / 20-11-2012 / 15:26:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ChangeSetTests methodsFor:'tests - utf8'!
+
+test_reading_utf8_01
+    "
+    Test reading of changeset with non-ASCII/non-ISO8859-1 chars
+    "
+    | file cs |
+
+    file := (Smalltalk getPackageDirectoryForPackage: self class package) / 'testData' / 'packages' / 'p1utf8' / 'ProjectDefinitionTestsP1UTF8Bar.st'.
+    self assert: file exists.
+
+    cs := ChangeSet fromFile: file.
+    self assert: cs size == 4.
+    self assert: (cs second source size = 127).
+    self assert: (cs second source includesString: 'Příliš žluťoučký kůň úpěl ďábelské ódy').
+
+    "Created: / 26-03-2013 / 09:54:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetTests class methodsFor:'documentation'!
 
 version
@@ -456,6 +477,6 @@
 !
 
 version_SVN
-    ^ '�Id:: RegressionTests__ChangeSetTests.st 508 2012-11-20 15:55:20Z vranyj1                                                    �'
+    ^ '§Id:: RegressionTests__ChangeSetTests.st 508 2012-11-20 15:55:20Z vranyj1                                                    §'
 ! !