       (str (getQName pn) "." (getName this)))))
 
 (defn toStringWithoutComments [node]
-  (.toString node))
+  (str node))
 
 (defn constructorDeclarationAsString [constructor]
   (let [sb (StringBuffer. )]

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

(extend-protocol withPackageName
  Node

        (.append sb ", ")
        (.append sb (toStringWithoutComments (.getType param)))))
    (.append sb ")")
    (str sb)))

(extend-protocol Named
  ConstructorDeclaration
