@@ -3249,14 +3249,14 @@
 				      (reverse
 				       (sqlite3:fold-row
 					(lambda (res t var val)
 					  (cons (vector t var val) res))
 					'() db all-dat-qrystr)))
-		     (let ((zeropt (handle-exceptions
-				    exn
-				    #f
-				    (sqlite3:first-row db all-dat-qrystr))))
+		     (let ((zeropt (condition-case 
+				       (sqlite3:first-row db all-dat-qrystr)
+				     (exn (busy)(db:generic-error-printout exn "ERROR: database " dbdef
+                                     " is locked. Try copying to another location, remove original and copy back.")))))
 		       (if zeropt ;; NOTE: Add zeropt to the beginning of the list as the list was reversed above.
 			   (hash-table-set! res-ht
 					    fieldname
 					    (cons
 					     (apply vector tstart (cdr zeropt))