diff --git a/embddr/common.scm b/embddr/common.scm
index 3a10a16..b8f5d3f 100644
--- a/embddr/common.scm
+++ b/embddr/common.scm
@@ -221,16 +221,16 @@
            (substitute str template-format subst-list))
          ls)))
 
-;;; Split string by string delimiter
-(define (string-split-str str str_pred)
+;;; Split the string STR into a list of the substrings delimited by DELIMITER
+(define (string-split-str str delimiter)
   (if (string-null? str)
       '()
-      (let ((didx (string-contains str str_pred)))
+      (let ((didx (string-contains str delimiter)))
         (if didx
             (cons (substring str 0 didx)
                   (string-split-str
-                   (substring str (+ didx (string-length str_pred)))
-                   str_pred))
+                   (substring str (+ didx (string-length delimiter)))
+                   delimiter))
             (list str)))))
 
 ;;; Split string and remove empty itemes