diff --git a/asdf.asd b/asdf.asd
index fae5b6d3ec607df25908c5d68598f09e1436cd01..58613161ce8e8454ec807ba3c0274c887e04730e 100644
--- a/asdf.asd
+++ b/asdf.asd
@@ -75,7 +75,7 @@
   :licence "MIT"
   :description "Another System Definition Facility"
   :long-description "ASDF builds Common Lisp software organized into defined systems."
-  :version "3.1.3.10" ;; to be automatically updated by make bump-version
+  :version "3.1.4" ;; to be automatically updated by make bump-version
   :depends-on ()
   #+asdf3 :encoding #+asdf3 :utf-8
   :class #.(if (find-class 'package-inferred-system nil) 'package-inferred-system 'system)
diff --git a/header.lisp b/header.lisp
index 2d7cd2bad7c8cc0cbe43c28574de2083c2466484..209c5c8dc3dc17ece4c47e9a847c6d7b68364888 100644
--- a/header.lisp
+++ b/header.lisp
@@ -1,5 +1,5 @@
 ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*-
-;;; This is ASDF 3.1.3.10: Another System Definition Facility.
+;;; This is ASDF 3.1.4: Another System Definition Facility.
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome:
 ;;; please mail to <asdf-devel@common-lisp.net>.
diff --git a/test/test-program.script b/test/test-program.script
index 2d9b7fd60e8915c52eda3e9390eff9a6e2870483..9deae7c76d61359cabc801632bb95cd8c95daac7 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -7,6 +7,8 @@
 
 (assert (find-system :hello-world-example))
 
+(trace run-program)
+
 #+allegro
 (defparameter *lisp*
   (let ((argv0 (parse-native-namestring (first (raw-command-line-arguments)))))
diff --git a/upgrade.lisp b/upgrade.lisp
index fe30d70753c00a408b24f88fbda388959ac49347..4335b73c0dae3563009ec7435d19e92693832462 100644
--- a/upgrade.lisp
+++ b/upgrade.lisp
@@ -67,7 +67,7 @@ previously-loaded version of ASDF."
          ;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5.
          ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5
          ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67
-         (asdf-version "3.1.3.10")
+         (asdf-version "3.1.4")
          (existing-version (asdf-version)))
     (setf *asdf-version* asdf-version)
     (when (and existing-version (not (equal asdf-version existing-version)))
diff --git a/version.lisp-expr b/version.lisp-expr
index 2b7e91e151c5c91f0f7ea45784df5fa30a0dfc37..1d9aaf8c63ab4909b748287de6cf4b224e717971 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -1,2 +1,2 @@
-"3.1.3.10"
+"3.1.4"