diff --git a/src/util-string.scm b/src/util-string.scm
index 6857c71..55980b8 100644
--- a/src/util-string.scm
+++ b/src/util-string.scm
@@ -28,8 +28,6 @@
 (module
  util-string
  (
-  string-repeat
-
   string-first+rest
 
   string-utf8?
@@ -48,15 +46,6 @@
 	 (chicken irregex)
 	 testing)
 
-  ;; Repeats given string.
- (define (string-repeat str rep)
-   (let loop ((rep rep)
-	      (res '()))
-     (if (> rep 0)
-	 (loop (sub1 rep)
-	       (cons str res))
-	 (string-intersperse res ""))))
-
  ;; Extracts first token and the rest as separate string
  (define (string-first+rest str)
    (let ((dm (irregex-search (irregex "[ \\t]" 'u) str)))