diff --git a/tests/issues.lisp b/tests/issues.lisp
index b02fc1266886d13ed1a6771d2f3fe786274ae9ba..40a2a96f6b1a608b0b22866ef3d48e53240142c2 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -298,3 +298,13 @@
 	(assert-eql (length in-string) (length out-string))
 	(assert-equal in-string out-string)))))
 
+
+
+(define-test issue.30
+    (:tag :issues)
+  (let* ((test-file #p"resources/issue-30.lisp")
+	 (fasl-file (compile-file-pathname test-file)))
+    ;; Compiling and loading the test file should succeed without
+    ;; errors.
+    (assert-equal (list fasl-file nil nil)
+		  (compile-file test-file :load t))))
diff --git a/tests/resources/issue-30.lisp b/tests/resources/issue-30.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..d924295797b9d8062458a5bce9b49d63f3de5d3a
--- /dev/null
+++ b/tests/resources/issue-30.lisp
@@ -0,0 +1,4 @@
+(defun foo ()
+  (print "Hello world"))
+
+(describe 'foo)