@@ -76,25 +76,25 @@
 ;;======================================================================
 
 ;; make-vector-record "testing" datastore pkg id area version_name store_type copied source_path iteration submitter datetime storegrp datavol quality disk_id comment
 ;; testing
 (define (make-datashare:pkg)(make-vector 15))
-(define-inline (datashare:pkg-get-id             vec)    (vector-ref  vec 0))
-(define-inline (datashare:pkg-get-area           vec)    (vector-ref  vec 1))
-(define-inline (datashare:pkg-get-version_name   vec)    (vector-ref  vec 2))
-(define-inline (datashare:pkg-get-store_type     vec)    (vector-ref  vec 3))
-(define-inline (datashare:pkg-get-copied         vec)    (vector-ref  vec 4))
-(define-inline (datashare:pkg-get-source_path    vec)    (vector-ref  vec 5))
-(define-inline (datashare:pkg-get-iteration      vec)    (vector-ref  vec 6))
-(define-inline (datashare:pkg-get-submitter      vec)    (vector-ref  vec 7))
-(define-inline (datashare:pkg-get-datetime       vec)    (vector-ref  vec 8))
-(define-inline (datashare:pkg-get-storegrp       vec)    (vector-ref  vec 9))
-(define-inline (datashare:pkg-get-datavol        vec)    (vector-ref  vec 10))
-(define-inline (datashare:pkg-get-quality        vec)    (vector-ref  vec 11))
-(define-inline (datashare:pkg-get-disk_id        vec)    (vector-ref  vec 12))
-(define-inline (datashare:pkg-get-comment        vec)    (vector-ref  vec 13))
-(define-inline (datashare:pkg-get-stored_path    vec)    (vector-ref  vec 14))
+(define-inline (datashare:pkg-get-id             vec)    (safe-vector-ref  vec 0))
+(define-inline (datashare:pkg-get-area           vec)    (safe-vector-ref  vec 1))
+(define-inline (datashare:pkg-get-version_name   vec)    (safe-vector-ref  vec 2))
+(define-inline (datashare:pkg-get-store_type     vec)    (safe-vector-ref  vec 3))
+(define-inline (datashare:pkg-get-copied         vec)    (safe-vector-ref  vec 4))
+(define-inline (datashare:pkg-get-source_path    vec)    (safe-vector-ref  vec 5))
+(define-inline (datashare:pkg-get-iteration      vec)    (safe-vector-ref  vec 6))
+(define-inline (datashare:pkg-get-submitter      vec)    (safe-vector-ref  vec 7))
+(define-inline (datashare:pkg-get-datetime       vec)    (safe-vector-ref  vec 8))
+(define-inline (datashare:pkg-get-storegrp       vec)    (safe-vector-ref  vec 9))
+(define-inline (datashare:pkg-get-datavol        vec)    (safe-vector-ref  vec 10))
+(define-inline (datashare:pkg-get-quality        vec)    (safe-vector-ref  vec 11))
+(define-inline (datashare:pkg-get-disk_id        vec)    (safe-vector-ref  vec 12))
+(define-inline (datashare:pkg-get-comment        vec)    (safe-vector-ref  vec 13))
+(define-inline (datashare:pkg-get-stored_path    vec)    (safe-vector-ref  vec 14))
 (define-inline (datashare:pkg-set-id!            vec val)(vector-set! vec 0 val))
 (define-inline (datashare:pkg-set-area!          vec val)(vector-set! vec 1 val))
 (define-inline (datashare:pkg-set-version_name!  vec val)(vector-set! vec 2 val))
 (define-inline (datashare:pkg-set-store_type!    vec val)(vector-set! vec 3 val))
 (define-inline (datashare:pkg-set-copied!        vec val)(vector-set! vec 4 val))
@@ -774,16 +774,16 @@
        ;; (print "area-name=" area-name " args=" args " *args-hash*=" (hash-table->alist *args-hash*))
        (map (lambda (x)
 	      (if (args:get-arg "-full")
 		  (format #t 
 			  "~10a~10a~4a~27a~30a\n"
-			  (vector-ref x 0)
-			  (vector-ref x 1) 
-			  (vector-ref x 2) 
-			  (conc "\"" (time->string (seconds->local-time (vector-ref x 3))) "\"")
-			  (conc "\"" (vector-ref x 4) "\""))
-		  (print (vector-ref x 0))))
+			  (safe-vector-ref x 0)
+			  (safe-vector-ref x 1) 
+			  (safe-vector-ref x 2) 
+			  (conc "\"" (time->string (seconds->local-time (safe-vector-ref x 3))) "\"")
+			  (conc "\"" (safe-vector-ref x 4) "\""))
+		  (print (safe-vector-ref x 0))))
 	    versions)
        (sqlite3:finalize! db)))))
 
 ;; ease debugging by loading ~/.dashboardrc - REMOVE FROM PRODUCTION!
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.datasharerc")))