@@ -174,11 +174,11 @@
                  (iup:attribute-set! tabtop "TABTITLE3" "Tools")
                  tabtop))))
 
 (on-exit (lambda ()
 	   (let ((tdb (tasks:open-db)))
-	     (print "On-exit called")
+	     ;; (print "On-exit called")
 	     (tasks:remove-monitor-record tdb)
 	     (sqlite3:finalize! tdb))))
 
 (define (gui-monitor db)
   (let ((keys (get-keys db))