Load messages and handle table string with single tab inside.

table.scm

@@ -139,9 +139,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 line w)
+   (print "tncl " w " \"" line "\"")
    (let* ((lst (string->list line))
 	  (first-char (if (null? lst) #f (car lst)))
-	  (last-char (if (null? lst) #f (car (reverse lst))))
+	  (last-char (if (or (null? lst)
+			     (null? (cdr lst)))
+			 #f (car (reverse lst))))
 	  (first-tab (eq? first-char #\tab))
 	  (last-tab (eq? last-char #\tab))
 	  (line0 (if first-tab (substring line 1) line))