            (list "##body##" (apply-for-each (lambda(property indent indentLevel)
                                               (apply-template
                                                "this.##name## = ##name##;"
-                                               (property-to-replacements property)
+                                               (to-replacements property)
                                                indent
                                                1))
                                             "\n"


  (defun builder(properties indent indentLevel className)
    (concat
     (apply-template
      "public class Builder {"
      '()
      indent
      indentLevel)
     "\n"
     (fields properties indent (+ 1 indentLevel) "\n")
     "\n\n"

     (concat "public ##type## get##Name##() {\n"
             "##indent##return ##name##;\n"
             "}")     
     (to-replacements property)
     indent
     indentLevel))

