Compatibility fixes for tests.

src/sgr-block.scm

@@ -92,7 +92,7 @@
    (map (lambda (sl)
 	  (sgr-list->string sl
 			    #:reset-state reset-state
-			    #:strip-ansi strip-ansi?))
+			    #:strip-ansi? strip-ansi?))
 	sb))
 
  ;; Returns the width of the longest SGR line in the block

src/util-string.scm

@@ -62,7 +62,7 @@
      (if (null? lst)
 	 (string-intersperse (reverse res) "")
 	 (loop (cdr lst)
-	       (cons (let* ((chs (car lst))
+	       (cons (let* ((chs (utf8-char->string (car lst)))
 			    (ch1 (if (= (string-length chs) 1)
 				     (string-ref chs 0)
 				     (integer->char 31))))