@@ -161,11 +161,11 @@
      (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
      (print "exn=" (condition->list exn))
      #f) ;; if this fails we don't care, it is just stats
    (let* ((cmd      (conc "run-id=" run-id " " (if (eq? rawcmd 'general-call) (car params) rawcmd)))
 	  (stat-vec (hash-table-ref/default *db-stats* cmd #f)))
-     (if (not stat-vec)
+     (if (not (vector? stat-vec))
 	 (let ((newvec (vector 0 0)))
 	   (hash-table-set! *db-stats* cmd newvec)
 	   (set! stat-vec newvec)))
      (vector-set! stat-vec 0 (+ (vector-ref stat-vec 0) 1))
      (vector-set! stat-vec 1 (+ (vector-ref stat-vec 1) duration))))