Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 Dec 2006 14:15:04 -0000	1.34
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 Dec 2006 22:05:24 -0000	1.35
@@ -745,6 +745,7 @@
           ImageField edit -label "" -src /resources/acs-subsite/Zoom16.gif \
               -title "View Item" -alt  "view" \
               -width 16 -height 16 -border 0
+          AnchorField diff -label ""
           AnchorField author -label [_ file-storage.Author]
           Field content_size -label [_ file-storage.Size] -html {align right}
           Field last_modified_ansi -label [_ file-storage.Last_Modified]
@@ -792,15 +793,21 @@
             if {$version_id != $live_revision_id} {
               set live_revision "Make this Revision Current"
               set live_revision_icon /resources/acs-subsite/radio.gif
+              set diff_label "diff"
+              set diff_link [export_vars -base $base {{m diff} {compare_revision_id $version_id}}]
             } else {
               set live_revision "Current Live Revision"
               set live_revision_icon /resources/acs-subsite/radiochecked.gif
+              set diff_label ""
+              set diff_link ""
             }
 
             set live_revision_link [export_vars -base $base \
                                         {{m make-live-revision} {revision_id $version_id}}]
             t1 add \
                 -version_number $version_number: \
+                -diff.href $diff_link \
+                -diff $diff_label \
                 -edit.href [export_vars -base $base {{revision_id $version_id}}] \
                 -author $author \
                 -content_size $content_size_pretty \