diff --git a/batch-driver.scm b/batch-driver.scm
index f6eb5b9..a12077f 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -668,7 +668,7 @@
                        (load-inline-file ilf) )
                      ifs)))
                 ;; Perform scrutiny and optionally specialization
-                (when (or do-scrutinize enable-specialization)
+                (when #f ;(or do-scrutinize enable-specialization)
                   ;;XXX hardcoded database file name
                   (unless (memq 'ignore-repository options)
                     (unless (load-type-database "types.db"