Handle empty strings in paragraph formatting.

table.scm

@@ -138,8 +138,12 @@
 
  ;; Normalizes cell line to required width and handles leading and
  ;; trailing tabs to allow for right and center alignment.
- (define (table-normalize-cell-line cs w)
-   (let ((csl (ansi-string-length cs)))
+ (define (table-normalize-cell-line line w)
+   (let ((lst (string->list line))
+	 (first-char (if (null? lst) #f (car lst)))
+	 (last-char (if (null? lst) #f (car (reverse lst))))
+	 ;; Line without tabs
+	 (len (ansi-string-length line)))
      (if (< csl w)
 	 (string-append cs (string-repeat " " (- w csl)))
 	 cs)))