diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp
index 0a203fcf1..0d558f361 100644
--- a/src/tests/normal-tests/compiler.lsp
+++ b/src/tests/normal-tests/compiler.lsp
@@ -1243,3 +1243,17 @@
     (funcall (compile nil
                       '(lambda ()
                         (eql 10d0 ext:double-float-positive-infinity))))))
+
+;;; Date 2017-08-10
+;;; Description
+;;;
+;;;    Confirm, that malformed code compiles (errors should be issued
+;;;    at runtime).
+(test cmp.0057.expand
+  (let (fun)
+    ;; expand-mapcar
+    (is (setf fun (compile nil '(lambda () (mapcar)))))
+    (signals program-error (funcall fun))
+    ;; expand-vector-push
+    (is (setf fun (compile nil '(lambda () (vector-push)))))
+    (signals program-error (funcall fun))))