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.18 -r1.19
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	2 Sep 2003 07:52:05 -0000	1.18
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	17 Sep 2003 14:24:04 -0000	1.19
@@ -33,7 +33,10 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 19 July 2000
 } {
-
+    if { [empty_string_p $text] } {
+        return {}
+    }
+    
     if { !$no_links_p } {
 	# We start by putting a space in front so our URL/email highlighting will work
 	# for URLs/emails right in the beginning of the text.
@@ -121,7 +124,7 @@
     regsub -all {[ \t]*\n} $text "\n" text
     
     # Wrap P's around paragraphs
-    set text "<p>$text</p>"
+    set text "<p style=\"margin-top: 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