--- a/Change.st	Tue May 12 06:57:06 2015 +0200
+++ b/Change.st	Thu May 21 13:48:29 2015 +0100
@@ -70,8 +70,8 @@
 
     source1 := source1 withoutTrailingSeparators asCollectionOfLines.
     source2 := source2 withoutTrailingSeparators asCollectionOfLines.
-    [source1 last isEmptyOrNil] whileTrue:[ source1 removeLast ].
-    [source2 last isEmptyOrNil] whileTrue:[ source2 removeLast ].
+    [source1 notEmptyOrNil and:[ source1 last isEmptyOrNil]] whileTrue:[ source1 removeLast ].
+    [source2 notEmptyOrNil and:[ source2 last isEmptyOrNil]] whileTrue:[ source2 removeLast ].
 
     source1 size ~~ source2 size ifTrue:[^ false].
     source1 = source2 ifTrue:[^ true].
@@ -88,6 +88,7 @@
     ^ false.
 
     "Created: / 25-07-2006 / 11:22:21 / cg"
+    "Modified: / 21-05-2015 / 13:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Change methodsFor:'accessing'!
@@ -576,6 +577,11 @@
     ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.68 2014-03-26 17:46:13 vrany Exp $'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$Id: Change.st,v 1.68 2014-03-26 17:46:13 vrany Exp $'
 ! !