Index: openacs-4/packages/xowiki/tcl/lcs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/lcs-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xowiki/tcl/lcs-procs.tcl	9 Dec 2006 22:02:21 -0000	1.1
+++ openacs-4/packages/xowiki/tcl/lcs-procs.tcl	10 Dec 2006 10:41:26 -0000	1.2
@@ -35,6 +35,9 @@
 
  proc list::longestCommonSubsequence { sequence1 sequence2 } {
 
+   set seta [list]
+   set setb [list]
+
      # Construct a set of equivalence classes of lines in file 2
 
      set index 0
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	9 Dec 2006 22:02:21 -0000	1.22
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	10 Dec 2006 10:41:26 -0000	1.23
@@ -407,11 +407,11 @@
     set i 0
     set j 0
     
-    set lines1 [split $doc1 "\n"]
-    set lines2 [split $doc2 "\n"]
+    #set lines1 [split $doc1 "\n"]
+    #set lines2 [split $doc2 "\n"]
     
-    regsub -all \n $doc1 <br> doc1
-    regsub -all \n $doc2 <br> doc2
+    regsub -all \n $doc1 " <br>" doc1
+    regsub -all \n $doc2 " <br>" doc2
     set lines1 [split $doc1 " "]
     set lines2 [split $doc2 " "]