@@ -375,11 +375,11 @@
     res))
 
 ;;
 ;; Move to steps.scm
 ;;
-(define (tdb:get-compressed-steps comprsteps) ;; from tdb:get-steps-table
+#;(define (tdb:get-compressed-steps comprsteps) ;; from tdb:get-steps-table
   (map (lambda (x)
 	 ;; take advantage of the \n on time->string
 	 (vector
 	  (vector-ref x 0)
 	  (let ((s (vector-ref x 1)))