Index: cgisetup/pages/home_view.scm
==================================================================
--- cgisetup/pages/home_view.scm
+++ cgisetup/pages/home_view.scm
@@ -67,18 +67,19 @@
 	    (conc "Runs data for " tfilter)
 	    ;;
 	    ;; A very basic display
 	    ;;
 	    (let* ((a-keys (sort (hash-table-keys ordered-data) string>=?))
-		   (b-keys (sort (apply
+		   (b-keys (delete-duplicates(sort (apply
 				  append
 				  (map (lambda (sub-key)
 					 (let ((subdat (hash-table-ref ordered-data sub-key)))
 					   (hash-table-keys subdat)))
 				       a-keys))
-				 string>=?)))
-	      (if #f ;; swap rows/cols
+				 string>=?))))
+                  ; (c-keys (delete-duplicates b-keys)))
+               	      (if #f ;; swap rows/cols
 		  (s:table
 		   (s:tr (s:td "")(map s:tr b-keys))
 		   (map
 		    (lambda (row-key)
 		      (let ((subdat (hash-table-ref ordered-data row-key)))
@@ -89,10 +90,11 @@
 					 (s:td (if dat
 						   (list (vector-ref dat 0)(vector-ref dat 1))
 						   "")))))
 			       b-keys))))
 		    a-keys))
+               
 		  (s:table
 		   (s:tr (s:td "")(map s:td a-keys))
 		   (map
 		    (lambda (row-key)
 		      (s:tr (s:td row-key)