diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 58019edf0f26161557ae4e7dfa97e68a6465d926..eb940eca9c0fe268a2afe82220dc047b5e94dc82 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -2084,3 +2084,17 @@
                          (multiple-value-call #'%f9 (values v2 v2))))
                    100)))))
   100)
+
+;;; gcl (9 Nov 2003) bug
+;;; Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged]
+
+(deftest misc.160
+  (funcall
+   (compile nil
+	    '(lambda (c)
+	       (declare (notinline + funcall))
+	       (+ (labels ((%f1 () -14)) (funcall #'%f1))
+		  (flet ((%f2 () (floor c))) (funcall #'%f2)))))
+   0)
+  -14)
+