--- a/Change.st	Tue Jul 25 11:24:48 2006 +0200
+++ b/Change.st	Tue Jul 25 11:26:16 2006 +0200
@@ -44,6 +44,28 @@
 "
 ! !
 
+!Change class methodsFor:'support'!
+
+isSource:source1Arg sameSourceAs:source2Arg
+    "return true, if the given sources are the same, ignoring tabs and whitespace differences."
+
+    |source1 source2|
+
+    source1 := source1Arg.
+    source2 := source2Arg.
+
+    source1 = source2 ifTrue:[^ true].
+
+    source1 := source1 withoutTrailingSeparators asCollectionOfLines.
+    source2 := source2 withoutTrailingSeparators asCollectionOfLines.
+    source1 size ~~ source2 size ifTrue:[^ false].
+    source1 := source1 collect:[:line | line withTabsExpanded withoutTrailingSeparators].
+    source2 := source2 collect:[:line | line withTabsExpanded withoutTrailingSeparators].
+    ^ source1 = source2
+
+    "Created: / 25-07-2006 / 11:22:21 / cg"
+! !
+
 !Change methodsFor:'accessing'!
 
 changeClass
@@ -164,16 +186,9 @@
 sameSourceAs:changeB
     "return true, if the given change has the same source as the receiver."
 
-    |sourceA sourceB|
-
-    (sourceA := self source) = (sourceB := changeB source) ifTrue:[^ true].
+    ^ self class isSource:(self source) sameSourceAs:(changeB source)
 
-    sourceA := sourceA withoutTrailingSeparators asCollectionOfLines.
-    sourceB := sourceB withoutTrailingSeparators asCollectionOfLines.
-    sourceA size ~~ sourceB size ifTrue:[^ false].
-    sourceA := sourceA collect:[:line | line withTabsExpanded withoutTrailingSeparators].
-    sourceB := sourceB collect:[:line | line withTabsExpanded withoutTrailingSeparators].
-    ^ sourceA = sourceB 
+    "Modified: / 25-07-2006 / 11:22:46 / cg"
 ! !
 
 !Change methodsFor:'printing & storing'!
@@ -288,5 +303,5 @@
 !Change class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.41 2004-03-17 16:17:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.42 2006-07-25 09:26:16 cg Exp $'
 ! !