diff --git a/shop3/silent-shop-test.lisp b/shop3/silent-shop-test.lisp
new file mode 100644
index 00000000..9e1cc3fa
--- /dev/null
+++ b/shop3/silent-shop-test.lisp
@@ -0,0 +1,6 @@
+
+(defmethod asdf:perform :around ((op asdf:test-op)
+                                 (component shop2-asd::shop-tester-mixin))
+  (let ((shop::*silent* t))
+    (declare (special shop::*silent*))
+    (call-next-method)))