@@ -279,12 +279,12 @@
 						    #f)))
 				    (if (or pmeta smeta)
 					(list meta value)
 					'())))
 				(filter cdr args-data)))))
-    (print  "Alldat: " alldat
-	    " args-data: " args-data)
+;; (print  "Alldat: " alldat
+;;         " args-data: " args-data)
     (add-z-card
      (apply construct-sdat alldat))))
 
 (define (simple-setup start-dir-in)
   (let* ((start-dir (or start-dir-in "."))