diff --git a/table.scm b/table.scm
index 89caad6..08bfff2 100644
--- a/table.scm
+++ b/table.scm
@@ -164,7 +164,7 @@
  ;; Compiled table borders for rendering
  (define table-borders-lookup
    (map (lambda (src)
-	  (cons (car src) (apply string-join (cdr src))))
+	  (cons (car src) (apply string-intersperse (cdr src))))
 	table-borders-lookup-source))
 
  (define (table->string tbl . args)