diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index b035a01ffc1242dd91474049bcfe61e826681b51..b8437361e5efd96a9baef5b08cfa4cd57affa0ea 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -2147,3 +2147,22 @@
    -6)
   :good)
 
+;;; gcl (13 Nov 2003)
+;;; Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged]
+
+(deftest misc.164
+  (funcall
+   (compile
+    nil
+    '(lambda (a)
+     (labels ((%f6 (f6-1 f6-2)
+		   (handler-case
+		    (labels ((%f2 nil (logior a)))
+		      (if (eql (%f2) (%f2))
+			  2829254 -10723))
+		    (error (c) (error c))
+		    )))
+       (funcall #'%f6 10 20)
+       )))
+   0)
+  2829254)