             (println-and-flush "read-ccs-description(): Error accessing database 'css_descriptions.db'!")
             (println-and-flush e)
             nil)))     ; special value that will be handled later
+
+(defn try-to-read-ccs-description
+    "Read package CCS description, but only when package is specified."
+    [package]
+    (if package
+        (read-ccs-description package)
+        ""))
 
 (defn read-all-descriptions
     "Read all descriptions from a table 'ccs-db' stored in a file 'ccs_descriptions.db'."


(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]
