Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	11 Dec 2003 21:39:56 -0000	1.31
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	17 Dec 2003 20:21:41 -0000	1.32
@@ -124,7 +124,7 @@
     regsub -all {[ \t]*\n} $text "\n" text
     
     # Wrap P's around paragraphs
-    set text "<p style=\"margin-top: 0px;\">$text</p>"
+    set text "<p style=\"margin: 0px;\">$text</p>"
     regsub -all {([^\n\s])\n\n([^\n\s])} $text {\1</p><p>\2} text
 
     # Convert _single_ CRLF's to <br>'s to preserve line breaks
@@ -144,6 +144,12 @@
     # Add line breaks to P tags
     regsub -all {</p>} $text "</p>\n" text
 
+    # Last <p> tag
+    set idx [string last "<p>" [string tolower $text]]
+    if { $idx != -1 } {
+        set text "[string range $text 0 [expr $idx-1]]<p style=\"margin-bottom: 0px;\">[string range $text [expr $idx+3] end]"
+    }
+
     return $text
 }