diff --git a/src/sgr-block.scm b/src/sgr-block.scm
index 0e4e46c..88498d9 100644
--- a/src/sgr-block.scm
+++ b/src/sgr-block.scm
@@ -86,10 +86,13 @@
 		   res)))))))
 
  ;; Creates a plain list of strings from given block
- (define* (sgr-block->string-list sb #:reset-state (reset-state #f))
+ (define* (sgr-block->string-list sb
+				  #:reset-state (reset-state #f)
+				  #:strip-ansi? (strip-ansi? #f))
    (map (lambda (sl)
 	  (sgr-list->string sl
-			    #:reset-state reset-state))
+			    #:reset-state reset-state
+			    #:strip-ansi strip-ansi?))
 	sb))
 
  ;; Returns the width of the longest SGR line in the block