             (println "***********" package)
             nil)))  ; special value that will be handled later
 
+(defn try-to-read-description
+    "Read package description, but only when package is specified."
+    [product package]
+    (if package
+        (read-description product package)
+        ""))
+
 (defn read-changes-statistic
     "Read number of changes made by all users."
     []


(defn generate-response
    [package new-description output-format new-user-name old-user-name]
    (let [ccs-description               (read-ccs-description package)
          package-descriptions          (read-package-descriptions products/products package)
          products-without-descriptions (get-products-without-descriptions products/products package-descriptions)
          products-with-descriptions    (get-products-with-descriptions products/products package-descriptions)

        (for [product products]
            (first product))
        (for [product products]
            (try-to-read-description product package))))

(defn read-ccs-description
    [package]
