         (.append sb ", ")
         (.append sb (toStringWithoutComments (.getType param)))))
     (.append sb ")")
-    (.toString sb)))
+    (str sb)))
 
 (extend-protocol Named
   ConstructorDeclaration

      (str (getQName pn) "." (getName this)))))

(defn toStringWithoutComments [node]
  (.toString node))

(defn constructorDeclarationAsString [constructor]
  (let [sb (StringBuffer. )]

      [p (.getPackage this)]
      (if (nil? p)
        ""
        (str (.getName p))))))

(extend-protocol withPackageName
  Node
