From 1b6badfcceb1a05c3576f2e5ce158036b0f5fbd0 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Thu, 27 Dec 2012 03:03:24 +0100
Subject: [PATCH] Guard against non-blob values of bookmark.date

---
 convert.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/convert.scm b/convert.scm
index 3e905b5..cb38385 100644
--- a/convert.scm
+++ b/convert.scm
@@ -5,7 +5,9 @@
 (require-library srfi-4)
 
 (define (blob->seconds blob)
-  (u32vector-ref (blob->u32vector blob) 0))
+  (if (u32vector? blob)
+      (u32vector-ref (blob->u32vector blob) 0)
+      0))
 
 (define (convert-table db name converter #!optional select)
   (let ((count (first-result db (string-append "SELECT COUNT(*) FROM " name)))