diff --git a/test/make-hello-world.lisp b/test/make-hello-world.lisp
index 9aca037f29d847d84c58f50dd10aa4373cb61d43..cddb2ce603c9dbbdc89d14653976f6a6f8290baa 100644
--- a/test/make-hello-world.lisp
+++ b/test/make-hello-world.lisp
@@ -10,9 +10,6 @@
 
 (asdf-test::frob-packages)
 
-(dolist (s '(:asdf :uiop :asdf/defsystem :uiop))
-  (assert (asdf::builtin-system-p (find-system s)) () "System ~A not builtin(!)" s))
-
 (defun make-hello-image ()
   (operate 'load-fasl-op :hello-world-example)
   (operate 'image-op :hello-world-example))
diff --git a/test/test-program.script b/test/test-program.script
index f499696aea43a94af6c817d7b7395c5563309663..b0b1af9c571210505fc79d36ba71061aa0639c58 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -8,8 +8,6 @@
 
 (assert (find-system :hello-world-example))
 
-#-mkcl
-(progn
 ;; Try to load lisp-invocation from xcvb
 (setf *central-registry*
       (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
@@ -25,8 +23,6 @@
 ;; Disable any user source registry.
 (initialize-source-registry `(:source-registry :ignore-inherited-configuration))
 
-(trace run-program)
-
 (DBG "test image-op")
 (defparameter img (output-file (make-operation 'image-op) (find-system :hello-world-example)))
 (assert (absolute-pathname-p img))