@@ -172,15 +172,16 @@
                  (iup:attribute-set! tabtop "TABTITLE1" "Collateral")
                  (iup:attribute-set! tabtop "TABTITLE2" "Fossil")
                  (iup:attribute-set! tabtop "TABTITLE3" "Tools")
                  tabtop))))
 
-(on-exit (lambda ()
-	   (let ((tdb (tasks:open-db)))
-	     ;; (print "On-exit called")
-	     (tasks:remove-monitor-record tdb)
-	     (sqlite3:finalize! tdb))))
+;; BUG: Remember to re-instate this!!!!
+;; (on-exit (lambda ()
+;; 	   (let ((tdb (tasks:open-db)))
+;; 	     ;; (print "On-exit called")
+;; 	     (tasks:remove-monitor-record tdb)
+;; 	     (sqlite3:finalize! tdb))))
 
 (define (gui-monitor db)
   (let ((keys (db:get-keys db))
 	(tdb  (tasks:open-db)))
     (tasks:register-monitor db tdb) ;;; let the other monitors know we are here